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MAPS meets your daily 
requirements: 

Financial reports. 

Financial planning. 

Consolidations . 

Financial modeling. 

Performance forecasts 
Full color graphics. 


MAPS™ IS FRESH! It’s the ideal decision 
support software product for today’s financial 
manager. With MAPS you get fast, fresh, 
flexible information handling the moment you 
want it. Plans, forecasts, models, reports can 
all be created and manipulated right in your 
own department. Changes that affect your 
company can be reflected and evaluated on 
the spot. And best of all, MAPS is canned 
easy use! Call Ross Systems right now. 
Ask for a demonstration of MAPS. You’ll 
be amazed what a little fresh decision 
support can do. Currently available on 
worldwide timesharing, or purchase for 
DEC’S* RSTS/E and VMS operating 
systems. Contact Ross Systems for 
more information today. 

‘DEC is a trademark of 
Digital Equipment Corporation. 


mss systems 

1800 Embarcadero Road 
Palo Alto, CA 94303 
(415) 856-1100 

Regional offices: New York, 
Dallas, San Francisco, Los Angeles 


“Now that’s fresh decision support.” 
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SOFTWARE 


Dynamically Link To Any Other 
System. The idea is to call up 
another system from your terminal. 
Better yet call up another system, 
log in. and set up a dynamic link with 
one command. 

Multiple Tasks On The Link. The 

link established becomes available 
to more than one user for inter¬ 
system task communication and 
file access. The link itself runs un¬ 
attended. 

Dealing With Hardware Failures. 

Total communication failure is di¬ 
agnosed and announced to the 
users. Corrective action is fully auto¬ 
mated. In the case of file transfers, 
there is an auto restart on the last 
block transferred. Data transmis¬ 
sion errors are detected and cor¬ 
rected without user involvement. 

About The Latest Version Of 
CALOUT. Yes, the latest version of 
CALOUT has been extended to in¬ 
clude powerful new multi-user 
features. For the large and rapidly- 
growing group of current users, a 
pathway for a simple and inexpen¬ 
sive upgrade is provided. 

Cost Break On Licensing. The 

whole approach in the design and 
implementation of CALOUT is for 
the licensing of a single host copy. 
This copy can be used to establish 
links with other systems. There are 
no additional licensing costs for 
each correspondant system. The 
idea of a network is not relevant. 
Link to any system you need to, 
when you need to. 

Transfer Sets Of Files. The 

CALOUT package provides for wild 
card file transfers. This feature 


SYSTEM LINKS 

HOOKING UP LOCAL OR 
REMOTE SYSTEMS 
DYNAMICALLY 


works much like PIP. Many files may 
be moved automatically, with a 
single request. 

Running Tasks On The Other 
System. You may run on the other 
system as a normal time-shared 
user. The CALOUT package will let 
you run tasks, do intersystem job 
communication, intersystem file 
communication or file transfers as 
you wish. 

The Thing About File Attributes. 

File attributes among the various 
operating systems can be a real 
problem, particularly where the 
VAX is concerned. CALOUT will 
transfer files of any type with auto¬ 
matic transfer and when necessary, 
the correct conversion of all file 
attributes. 

RSTS, VAX, RT11, RSX11 Support¬ 
ed. The latest version of CALOUT is 
implemented for RSTS, VAX, RT11, 
and RSX11-M. Any one of these 
operating systems may be the host 
or the correspondant in a CALOUT 
link. 

Regarding Local Systems. For 

systems that are physically near 
each other, the CALOUT package 
can be implemented without a tele¬ 
phone line or any special hardware 
beyond a simple cable linking the 
two or more systems. 


Linking With Foreign Operating 
Systems. CALOUT may be used to 
link up with any operating system. If 
you are able to log in with a standard 
ASCII terminal, then you may do 
text transfers with any correspon¬ 
dant system. 

Achieving Very High Transfer 
Speeds. CALOUT is limited to the 
transfer speeds supported by the 
communication hardware. It can be 
used with sophisticated high-speed 
hardware if required. You are not 
forced to buy such hardware with 
CALOUT. 


Clyde 

How To Get More Information. 

Call Lisa at (801) 224-5306, or write: 
Clyde Digital Systems, Inc., 3707 
North Canyon Road/Bldg. 3-E, Provo, 
UT 84604. 


CIRCLE 6 ON READER CARD 
















August 1982 page 3 

RSTSPR0FESSI0NALRSTSPR0FESSI0NAUeTSPTOF^I0NAlJ*STSPR0FESSI0NALRST3PR0FESSI0^ 


Contents 


CB — CITIZENS BAND RADIO EMULATOR. VERSION 01.03 . 8 

Philip Hunt 

Now I've seen everything! Great! 10-4 Good Buddy! 

RSTS GAMES 

One Man s (Boy s) Opinion . 28 

Bill Marbach 

Some like it. 

No Cause for Excitement. 29 

Joel Schwartz. M.D. 

Some don't. 


TYPE . 30 

W. Franklin Mitchell. Jr. 

Want to output something to your KB — use TYPE, with its own RTS. 

WRITING A RUN-TIME SYSTEM (or Happiness in the Hiseg) . 31 

Bob MACRO MAN’ Meyer 

Macro Man takes us inside a Run-Time System 

SELECTIVE CLEARING OF LOGGED ERRORS . 34 

Paul DeBenedictis 

A useful addition to monitoring the error log. 

Who needs 13.654 TS11 errors anyway? 

EDITING SYSTEMS — Miscellaneous Items . 38 

David Spencer 

He authors RSTS Games, and is our Editor Columnist 

THE VAX-SCENE — VAX-11/780 and VMS . 48 

Michael H. Koplitz 

An overview of VAX/VMS from a RSTS man 

TIPS & TECHNIQUES — Determining SYS() Call Privileges. 52 

Wef Fleischman 

Who can use which SYS Call is confusing when using more than one RSTS System. 

The West Coast Guru's help us again. 

THE RSTS CRYSTAL BALL — Part 2 . 60 


(ONLRES makes RSTS modules [non] resident) 

Michael C. Greenspon 

What's here and what's coming are good things to know. 

What I want to know is how Michael knows. 

WHY CALL YOUR BANK EVERYDAY?. 68 

Dale L. Bargar 

Maybe with today's high interest you don't want to know the interest on your loans, 
if so — don't run this one! 

SIMINI — A Simulation Mini Computer . 71 

John Cato 

RTZ Computer Services Ltd. sends us a 3 part gem from across the ocean. 


Coming ... 


■ Word Processing 
Security 

■ New DEC Disks 

■ The RSTS 
Home Computer 

■ BASIC+ 
Subroutines 

■ RSTS 

Communications 

■ The SATT. SYS 
Explained 

■ Communication 
Protocols 

■ Disk Utilities 

■ Australia 
DECUS Report 

■ High School 
RSTS Systems 

■ Short Haul 
Modems 

■ Q-BUS vs UNIBUS 

■ More .. . 


From the Editors . 4 

Letters to the RSTS Pro . 6 

Dear RSTS Man . 36 

Classifieds . 82 

News Releases .83 

List of Advertisers . 87 


The RSTS Professional Magazine. August 1. 1982. Vol.4. No. 4. 
Published bi-monthly. Single copy price s 10°°. s 35°° per year 3rd 
dass: $50 Canada and US 1 st class. All other countries, air mail. $60 
US. Published by M Systems. Inc.. 161 E Hunting Park Avenue. 
Philadelphia. Pa. 19124. Application to mail at Second Class 
postage rates is pending at Philadelphia. Pa. Send all 
correspondence and change of address to: Box 361. Ft. 
Washington. Pa. 19034-0361. telephone (215) 542-7008. 
Copyright© 1982 by M Systems. Inc. No part of this publication may 
be reproduced in any form without written permission from the 
publisher. 


RSTSPROFESSIONALJ1STSPROFESSIONALRSTSPROFESSIONALRSTSPROfESSIONALRSTSPROFTSSIONAL8STSPROFE^IONALJ^ST^PTOFESSIONALRST5PROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALi<STSPROFESSIONAlJ : 1STSP 






























page 4 August 1982 

RSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTTSPROF^IONA^^^ 


From the editors. .. 

AUTHOR. AUTHOR! 

Dave Mallery 

I had an insight recently while hanging 
around the press room at the Atlantic City 
COMDEX show. The room was populated 
with an unfamiliar breed — reporters. They 
were going on about how thay had been 
cruising the show floor getting stories’ 
from various exhibitors. One reporter was 
especially vivid in his description of how the 
people in one booth had been falling all over 
each other to give him a demo and how he 
had curtly dismissed their efforts as unwor¬ 
thy of his attention. 

My first reaction was: ‘Boy, Carl, we 
ought to hire one of those. . .1 Then I realiz¬ 
ed that we would start sounding like all the 
other magazines in the business because 
90% of their content is banged out by those 
slick journalists using pure marketing 
hokum as input and slick formula as out¬ 
put. *a tale told by a computer. . 

Our magazines are really YOUR 
magazines. We do not employ a single pro¬ 
fessional writer or reporter. If you don’t like 
our content, then do something about it. 
Most of our 'regular' contributors never 
dreamed that they would be publishing fre¬ 
quently. There’s lots of room for you—over 
a hundred pages a month. 

The RSTS pro was born in a SIG 
meeting in the Spring 1979 DECUS at New 
Orleans. Every time I look back at Vol 1. 
Number 1. I am amazed: 

a) that it happened at all 

b) how good some of the articles are. 

When you look at Vol. 1, Number 1 of 

the Dec Pro, you will notice that we have 
learned something about publishing; that 
we have learned how to sell advertising; and 
that we have developed some financial 
strength; but I am still amazed: 

a) that it happened at all 

b) how good some of the articles are. 

HOME COMPUTER 

Carl B. Marbach 

At last. A home computer that is a real 
computer. It even runs RSTS. Maybe that is 
what makes it the first machine I am willing 
to call a ‘home computer’. The new 
MICRO-11 package just announced by DEC 
is what some of us have been waiting for. 
(Look for my article in the next issue.) It is 
also something some of us (Apple, TRS-80, 
PET ?) have been hoping would never hap¬ 
pen: It did. 

What is a ‘home computer’? I will con¬ 
tinue by asking, ‘what is a mini computer’? I 
would guess that a ‘home computer’ is a 
micro computer that can be bought for the 
home, or for home use (play?). That would 
mean it has to be cheap, small, reliable, use 


ordinary power and require no special envi¬ 
ronment. I won’t tell you what a mini-com¬ 
puter is because I don’t know anymore (I 
used to know). So DEC has a real ‘home 
computer' — not a micro, a ‘home com¬ 
puter’. It is sort of a micro because it does 
use an 11 /23, but it isn’t really a micro be¬ 
cause it doesn’t use the new T-11 chip (PDP 
11 on a chip). 

It is not inexpensive, but probably af¬ 
fordable as a home computer’ at just about 
$10,000 complete. A friend of mine has 
about $6,000 in his Apple and it isn’t close 
to this in anything except game playing.. . 
oh yes, Apple and Atari win when it comes 
to games, but they lose big because they 
DON’T RUN RSTS. Add a VT-101 to this 
package and you have a real 10MB disk and 
256K memory RSTS/E system! RSTS! 

I recently read an article about what 
operating system was to become the ‘stan¬ 
dard’ for the new 16 bit micro’s. Was it to 
be CP/M-8 6 or PC-DOS or XENIX? I think 
not. It might be RSTS. In five years there will 
be two giants in ‘personal computers’: IBM 
and DEC. The others will go the way of 
Texas Instruments watches, Singer POS ter¬ 
minals. Xerox computers and other extinct 
species. These ‘personal computers’ will rule 
the roost of cheap software (you get what 
you pay for) and games. You want to play 
GAMES and do some computing? Buy a 
personal computer’. If you want a com¬ 
puter to do real commercial type work, 
manage your home finances, run budget 
models, follow the stock market, pay your 
bills, do word processing, teach the kids pro¬ 
gramming and have the full functions of a 
computer, you’ll need a ‘home computer’. 

Are the micro based ‘personal com¬ 
puters’ friendly? Try one, it won’t say 
“please say hello’’. Do they have RECORD 
1/0, OR RMS? How about TECO or EDT? 
GRIPE doesn’t exist? Horrors! Is there a 
BATCH, or SPOOL? Can you run BACKUP or 
SAVER? Is there a REORDR and can they 
spell UTILTY? Did someone explain how the 
disks are organized, and how you can opti¬ 
mize them? Is there a SYSTAT or VT5DPY, 
and can you LOCK-11? When was the last 
time your system was down because of a 
bug in RSTS? Does the documentation take 
up a full bookshelf and change colors every 
year? Can a program written for a 
$500,000 computer run on yours? 

I hope my kids learn programming on a 
system whose lineage included a 28K com¬ 
puter that served 4 users in a school. That 
PDP 11/20 has grown to a $500,000 128 
terminal 11/70 and now to a $10,000 
home computer’. What will be the “stan¬ 
dard” 16 bit operating system? I’m using it 
right now. on my very own ‘home com¬ 
puter’: a PDP-11 running RSTS. 

PLEASE SAY HELLO. ? 
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Take the“work”out of 

RSTS/E NETWORKING AND 
SAVE MONEY TOOl 

Return coupon to: 

I Digital Management Group Ltd. 

' 4800 Yonge Street, Willowdale 
I Ontario, Canada M2N 6G5 

' □ Tell me more about DMG/NET for RSTS/E. * 
I □ Id like some information on DMG/NET 
1 for VAX. 

I Name_ I 


If information processing is important to 
you and your organization, then an effi¬ 
cient networking system is essential. 
DMG/NET is a networking software pack¬ 
age designed for RSTS/E systems, which 
is not only highly efficient, but is also 
multi-functional, simple to use and can cut 
your communication costs substantially. 

YOU DONT HAVE TO BE A 
COMPUTER PROFESSIONAL 
TO USE DMG/NET 


YOU CAN CUT YOUR 
COMMUNICATION COSTS 
BY UP TO 90%! 

DMG/NET not only makes network com¬ 
munication extremely simple, but through 
the utilization of X.25 networks it makes 
communication extremely cost efficient 
too. No matter what the size of your 
RSTS/E system, if you currently use dial¬ 
up or leased lines, installing DMG/NET 
with X.25 could cut your communication 
costs by up to 90%! 


DMG/NET allows interactive access to 
electronic mail systems, public databases, 
service bureaus and other remote 
systems, whether they are RSTS/E, other 
DEC systems or even non-DEC. File 
transfer is possible between RSTS/E 
systems-local or remote, and operation 
is so simple, anyone can use the system - 
even your non-computer people. Once a 
connection is made, communication is 
exactly as if the remote computer was in 
the next room. 


If you’d like to take the 'work” out 
of your networking and save money at 
the same time, send for more information 
on DMG/NET 


Title_ 

Company. 

Address_ 


Just com¬ 
plete the coupon 
and mail it to us 
today. Or give us a 
call and we’ll be 
happy to arrange a 
demonstration. 



1 City_State_ 1 

' Zip_Phone ( )_ I 

DP7/82 

Digital Management Group Ltd. 

4800 Yonge Street, Willowdale, Ontario. Canada M2N 6G5 
Telephone: (416] 225-7788 


RSTS/E, DEC and VAX are registered trademarks ot Digital Equipment Corporation DMG/NET is a registered trademark of Digital Management Group Ltd 
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LETTERS to the RSTS Pro... 


Send letters to: Letters to the RSTS Pro. P.0. Box 
361. Ft. Washington. PA 19034-0361. 


Dear Readers of the RSTS PROFESSIONAL: 

The RSTS PROFESSIONAL was started by 
Carl Marbach and R. David Mallery a few years 
ago. to fill a void left by the RSTS SIG newsletter, 
do’ing a better job than the SIG newsletter had 
done in recent memory. They recognized that the 
‘commercial free’ environment enforced by 
DECUS tends to stifle the enthusiasm of the users. 

I would, however, like to express my concern at 
what I perceive to be a lack of editorial policy in the 
RSTS PROFESSIONAL. To me, the RSTS PRO¬ 
FESSIONAL exists to provide a forum for the free 
exchange of good solid accurate technical informa¬ 
tion in a relatively commercial free environment. 
(Making Carl & Dave a few bucks in the process.) 

I don’t care for the commercially stifling environ¬ 
ment provided by DECUS, but I care for self- 
serving sales literature masquerading as technical 
articles less. 

Prime examples of what I mean are: “Que. 11 
User’s Guide,” “Conpax,” “DEC Data Security, 
The Software Encryption Solution,” and “Scrnio/ 
11 and Vidio/11.” The last article being a particu¬ 
larly blatant example. (Maybe DECUS isn’t so bad 
after all.) 

I feel that articles like these seriously damage the 
professional image of the magazine. (In our neck of 
the woods, it is referred to as the RSTS UN¬ 
PROFESSIONAL!) I sincerely hope I’m not the 
only one who feels that these types of articles have 
no place in a ‘professional’ journal. 

OK, now that I’ve vented some of my frustra¬ 
tion, what do I propose? Carl and Dave are smart 
business people who respond to market pressures. 
They realize that if they don’t fill the void, someone 
else will. So please, exert some pressure, write a 
letter expressing your opinion on what you want 
your magazine to be. 

Collectively, we can exert a tremendous force to 
determine the future of the RSTS PROFES¬ 
SIONAL. Let’s make it something we can all be 
proud to be a part of. 

In closing, Carl and Dave, thanks for having the 
insight to fill the need for a viable communications 
medium between RSTS users. Keep up the good 
work of disseminating information to the masses. 

Sincerely, Steven L. Edwards 
Vice President, Technical Services 
Software Techniques, Inc. 
Dear Steve: We have alw ays had a policy about 
'commercial’ articles. It is: "Your article should 
(must) teach as w ell as sell!" 

Sometimes, they err on the selling side. I have 
rejected a few. 

Yes, this is your magazine. Carl and I have 
repeated this statement till we are hoarse. 

/ cannot write more than one quality article a 
year. 

If you guys (not you, Steve, but the rest) w ant 
your magazine to be the journal it ought to be, then 
you help by getting that article you alw ays w anted 
to write WRITTEN! 

I promise to publish it for you and pay for the 
privilege. 

Meanw hile, the policy stated above stands. The 
PRO is a commercial venture. We sell advertising. 
Our page count = F (ad count). 

I will promise to be more picky with the ' com¬ 


mercial’ articles. As long as l have pages to fill, / 
will always give preference to non-commercial 
material. As long as our policy is in force, I will 
print ‘commercial’ pieces that teach. 

I really appreciate your letter. I hope every 
reader gets its message! 

Thanks for your help. — Dave 

I would like to inform your readers that the articles 
entitled ‘CCLMAN’ [June 1982, v.4,#3, p. 18] and 
‘CB’ (this issue, p.8) are fully functional and 
debugged programs. 

Updated sources of these programs incorporat¬ 
ing many enhancements are available from me 
directly by sending a blank tape and $15.00 FOR 
BOTH PROGRAMS. 

The enhancements made are as follows: 
CCLMAN — V1.3 — User may now leave line 
number portion of CCL command off which will 
default to a value of ‘O’, which is chain to top of 
program. 

CP — VI.8 — a) A command /CLOSE, /OPEN 
is now implemented which will allow privileged 
users to open and close CB from non-privileged 
users. 

b) A command /XEQ is now implemented 
allowing a background job to be executed while in 
CB. Example: T19 /XEQ SY/A 

This will display to the user a SYSTAT of 
active jobs WHILE STILL EXECUTING CB!!! 

c) A command /CALL is now implemented 
allowing a set message to be set to a specific 
terminal. 

d) A CB help file is now available 

— and many others — 

Thank you for publishing this letter. 

Philip Hunt 
Columbus, Ohio 

At one of the RSTS sessions during the Atlanta 
US Spring DECUS symposium, a user made a very 
good suggestion for an enhancement to the error 
handling package. As DEC seemed unenthusiastic, 
and I also share the same concern, I decided to try 
to do it myself. This note shares my success with 
any other interested RSTS users. 

Paul DeBenedictis, Systems Manager 
Educational Communications 
Upstate Medical Center, Syracuse, NY 
See Paul’s article "Selective Clearing of Logged 
Errors" in this issue, p.34. 

This is in regard to Joe Doyle’s article on the 
DECWORD/DP freebie [v.4, #2, April 1982, 
p. 11]. The only hardware I expected in the package 
was the keyboard. If you look at the line feed and 
backslash key tops carefully, you will see that they 
are molded for the rows on which they are placed. 
Someone did not just manage to do it wrong — 
they planned it that way. Also, the cardboard key¬ 
board was the same way. 

I found no indication that the advanced video 
option was coming — that was a surprise. The 
switch settings seemed to resemble those already 
set, by one interpretation of the positions, so I did 
not bother them. I followed the instructions 
exactly, replacing an old A VO as Joe did. But mine 
worked fine. This A VO also somehow switches the 
meaning of the linefeed and backslash keys, so the 
keyboard, as shipped, is right! 

I gave my old AVO to a friend in another depart¬ 


ment, who could not make it work. Two of the new 
standoffs broke, so perhaps a good connection was 
not made. 

The software was intended to interface with the 
main DECWORD menu, and apparently just 
exists when the menu is not there to chain to. 
Therefore, it does not reset terminal characteris¬ 
tics. Include on its logical device a program 
WPSMEN which resets the desired terminal char¬ 
acteristics. WPSCBT will chain to it at line 30010. 

A word processing specialist here went through 
CBT as an evaluation for a replacement or upgrade 
for a Lanier system. She did not like the Ruler in 
the WPS system, as it seemed too difficult to 
change (call it up, space out to the points to change, 
insert or delete the character(s), store the new 
Ruler, activate it and return to what you were 
doing). Anyone have experience with this? 

Samuel B. Belk 
Allied-General Nuclear Services 
Barnwell, SC 

Just a few notes on the response to my article on 
DEC WORD. Thanks for all the cards, letters and 
phone calls. It has been great exchanging ideas. 
One of the more interesting occurences had us trad¬ 
ing our DEC Word keypad to a DCB Word user 
for a normal VT100 keypad. This was then 
enhanced with the WORD-11 VT100 keycaps that 
Richard Marino of DPD sent me. (Yes, VT100 
keycaps are now available.) 

Special thanks must go to Steve S. of Washing¬ 
ton, Pa. (Because of my poor phone manners I 
never did get a spelling of his last name. — Sorry 
Steve.) Steve is an ex-pinball machine repairman 
who now is into computers. He said he experienced 
the same graphic display on his screen that I did 
when he tried his AVO option. He applied past 
experience and took a careful look at the board. He 
noticed that the plastic supports were longer on the 
new AVO than on another AVO he had. He took 
off the supports, mounted the AVO, and it worked. 

I tried the idea with my AVO. It worked. Thanks 
Steve! 

Joe [Doyle] 

I currently program a PDP 11/44 with 1.25 
Mbytes of memory and I am keen to experiment 
with the data caching facility with a view to keeping 
large data files memory resident. Is there any 
RSTS buff out there who can tell me, 

a) the algorithm used for searching Xbuf? 

b) whether a file marked for replacement is only 
replaced when all other Xbuf is filled? 

c) will such a marked file be Tound’ if requested 
before it is physically overwritten? 

I will be pleased to hear from anyone with data 
caching experience. 

Yours hopefully, John Mulholland 
“Norend” 
Dunmore Village, by Airth 
Stirlingshire, Scotland 
P.S. Great magazine, but how about a jobs 
section!! 

As a newcomer to RSTS I found many of the 
RSTS sessions at the 1982 Spring DECUS, in 
Atlanta, very helpful. Having been a user of both 
Digital hardware and other software systems for a 
number of years has helped a great deal in the 
transfer to RSTS. However, I find the area that is 
taking the longest to master is the internals of 
.. . continued on page 79 





before you odd memory 
(or anything else) 
to increase system performance 



you should add dopter! 

DOPTER is an easy to use RSTS/E disk copying program which 

INCREASES SYSTEM PERFORMANCE UP TO 50%. 


DOPTER performs all of the standard functions 
necessary to structure a RSTS/E disk volume and 
automatically does the following: 

• Places all files and free space in their optimum 
positions. 

• Produces better optimized MFD/UFD’s than 
REORDR. 

• Deletes unused file attributes from source, task, 
and object library files saving UFD and cache 
accesses. 

• Places and pre-extends the MFD. 



5522 Loch More Court • Dublin, Ohio 43017 • 614-265-' 


• Places the most used files at the front of the 
UFD’s. 

• Places the U FD’s with the most activity toward the 
front of the MFD. 

For More Information 

If you would like more information on how you can 
increase the performance of your RSTS/E system 
with DOPTER and a free copy of “RSTS/E DISK 
OPTIMIZATION IN A MULTI-USER 
ENVIRONMENT”, phone or write SPH today. 

RSTS/E is a registered trademark of Digital Equipment Corporation. 

System 
Performance 
House, Inc. 
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CB — CITIZENS BAND RADIO EMULATOR 

VERSION 01.03 

By Philip Hunt, O.L.F.B.P., 6400 E. Broad Street, Columbus, Ohio 43213 


Description: 

CB is a very versatile program running in 2K of user 
space that will allow any users on the system to com¬ 
municate with each other as they would on a citizen's band 
radio. 

A Talk' channel is used to send messages to anyone 
currently Monitoring' that channel. A user may monitor any 
or all of the 40 channels' available, but may only talk on 
one. 

Commands are defined to allow the user to change talk 
channels, monitor and unmonitor channels, list users by 
user or by channel, set Restricted' messages that will only 
be received if the sender and receiver (or receivers) have the 
same password set, etc. 

Program Entry: 

When the user enters the program, he must enter a 12 
character handle' that will be transmitted everytime he 
sends a message. The prompt for sending messages is a T 
with the channel number you are currently talking on in¬ 
cluded, example: T19>' would mean you are currently talk¬ 
ing on channel *19. If an extra bracket ('>’) is included in 
the prompt, it would indicate that the user has a password 
set for his messages and that only people with the same 
password will receive them. For entry by CCL, see 
CCL/LOGGED-OUT formats. 

As noticed, anything not beginning with a '/' is sent to 
other users on the users current TALK channel. The slash in¬ 
dicates a command entry. 

Note: If a blank line is entered i.e.; a carriage return is 
struck with no items on the line AT ALL, CB will print 
its' version number and return for more commands/ 
messages. 

Commands: 

/TALK Chnl* 

This command will change the channel the user is 
currently transmitting on. When the user first 
enters CB, the channel will be set to 19. Valid chan¬ 
nels are 01-40: any other entry will give an error 
message. The channel that is set for Talk will cause 
all messages sent to be received by any user cur¬ 
rently monitoring that channel unless a password 
has been set (See /RESTRICT). Note: when chang¬ 
ing Talk channels, the previously set Talk channel 
will still be marked for monitor. 

/MONITOR Chnl*.Chnl*.Chnl* 

This command will allow the user to monitor 
multiple channels. When the user first signs into 
CB, he will only be monitoring channel 19. Valid 
channels are 01-40: any other entry will cause an 
error message for that channel, but all other en¬ 
tries on the command line will be processed. 


If the channel number is entered as negative, 
then the channel specified will be UNMONITORED’. 
Note: You cannot unmonitor your current TALK 
channel. 

/RESTRICT nnnnnn 

Restrict allows a user to set a password up to 6 
characters long. When a password is set, the user's 
messages will only be sent to other users monitor¬ 
ing the channel who have the same password set. 
This allows private messages to be sent. Note: 
Privileged users can obtain Restrict passwords (See 
/List) and can receive Restrict messages (See 
/Spy). Messages with this set will have the word 
'SECRET' appended to the message (See Message 
Formats). 

/BROADCAST [Chnl*] Message Text 

This command will allow a user to send a message 
to any valid channel ignoring the user’s password 
protection. If channel is specified, then the 
message will be sent to that channel; otherwise, 
the message will go to your current Talk channel. 
This command is useful if you would like to send 
one message to everyone on your channel, but 
want to keep most of your messages Private'. 
/CALL Kb* 

This command will send a message to the specified 
terminal currently NOT running CB, to request that 
he do run CB. The message sent is of the form: 

* * CB-User: Handle - Please enter CB on Channel 
*n* * 

NOTE: If the specified job is already in CB, an error 
message is generated and the message is not sent. 
/TIME 

This command will display the current date and 
time. This is useful when using CB for an extended 
period of time. 

/KB 

KB will toggle a bit in the user flag word allowing 
him to receive KB numbers when a message is 
received by him (See Message Formats). The 
default for this is OFF’. 

/PPN 

PPN will toggle a bit in the user flag word allowing 
him to receive user PPN numbers when a message 
is received by him (See Message Formats). The 
default for this is 'OFF'. 

/JOB 

JOB will toggle a bit in the user flag word allowing 
him to recieve JOB numbers when a message is 
received by him (See Message Formats). The 
default for this is OFF'. 

/UPPER 

Toggles the user flag word informing CB to start 
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Fortune500*s finest have selected us for use 
with their DEC and DG minicomputers. 


For over a decade, System Industries has provided 
reliable and cost-effective data base storage alternatives to 
many Fortune 500 companies using DEC and DG minicom¬ 
puters. SI has over 20,000 installations around the world 
today, because we've given DEC and DG users just what 
they wanted: 

la MORE RELIABILITY. SI provides great data base 
solutions—like our redundant Add-On Non-Stop Reliability 
(ANSR) systems. Or our 160 or 675 Mbyte, SMD-compat- 
ible Winchester storage systems, for more dependability 
and increased throughput. 

2. SPACE SAVING CONFIGURATIONS. The SI storage 
alternative puts many more Mbytes in a single footprint. 
We'll give you the eguivalent of 8 "logical" RM03s in the 
space normally occupied by one RM03 from DEC. Or the 


eguivalent of 6 RM05s in the space normally occupied by 
four from DEC. 

3a EXCELLENT SERVICE. We maintain service centers in 
the U.S. and Europe. We offer 4-hour response to calls 
within a 50-mile radius of major U.S. cities. And 24 hours/ 
day, 7 days/week service contracts in all metropolitan 
areas. 

4a FAST DELIVERY. SI has built its reputation on guick 
delivery. Typically, we can give DEC and DG users value- 
packed data base storage systems in 30 to 45 days ARO. 

For more information about the popular choice of the 
Fortune 500, and the accepted storage alternative of DEC 
and DG minicomputer users, contact us today at any of the 
offices listed below. 



United States: 1855 Barber Lane, Milpitas, CA 95035, (408) 942-1212, Telex 346459. 

Europe: System Industries (Europe), System House, Guildford Road, Woking, Surrey, GU22 7QQ, England, (44) 4862 5077, Telex 859124. 
California (714) 851-6289, (213) 822-3161; Colorado (303) 986-1591; Georgia (404) 955-2252; Illinois (312) 948-9330; Massachusetts (617) 431-7240; Michigan (313) 663-4925; 
New Jersey (201) 839-8650; New York (212) 696-0650; Ohio (513) 771-0075; Texas (713) 497-7224, (214) 386-8776; 

Virginia (703) 734-9700; Washington (206) 451-8791; West Germany (49) 6102 5464; Sweden (46) 08-63 16 20 
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or stop translate all MESSAGES (sent or received) 
to UPPER case. The default for this is ‘OFF’. 

/LIST [Job*] 

List all users currently using CB. A list of their 
TALK channel, channels they are monitoring, their 
Handles’, Job *, KB *, User PPN and JOB at¬ 
tributes (See Attributes) are listed. If you are cur¬ 
rently privileged, then any currently set Restrict 
password is also printed. Note: If Job* is entered, 
then the listing will be only for that Job*. 
/WATCH [Chnl*] 

This command will give a list of users currently 
monitoring a channel. Their KB* Job *, Handles 
and Job attributes are printed. If Chnl* is not 
entered, then the list will be entered for the cur¬ 
rent Talk channel. Note: If /Watch is entered as a 
CCL command, then a Chnl* MUST be specified 
(See CCL/LOGGED-OUT formats). 

/HELP 

Prints a Help message for CB. It is very similar to 
the reference card in format. 

/EXIT (tZ, 1C) 

Exit CB. Note: tZ and IC act as if an /EXIT com¬ 
mand has been entered. 

* 'Privileged ONLY commands:'' 

These commands, when executed by a non- 
privileged user, will generate an error message, and 
NOT be executed. 

/SPY 

Toggles a bit in the user job attributes that allows 
a privileged user to receive Restrict messages even 
though he might have no password or a different 
password set. The default is ’OFF’. A message 
received by /SPY being set will have ‘ + SPY + ’ ap¬ 
pended to it. 

/CLEAR Job* 

Clear the job specified from CB and kill the job. A 
check is made to be sure the job specified is in CB. 
A message is sent to the JOB (Unless detached) in¬ 
forming him that his job has been killed, and all 
users receive the Leaving CB’ message with the 
phrase ’(Involuntarily)’ appended to it (See Message 
Formats). THIS COMMAND SHOULD BE USED TO 
KILL A CB JOB, NOT THE UTILTY’ COMMAND OR 
THE CB LIBRARY WILL BECOME CORRUPTED!!! 
/DETACH 

Detach from current Keyboard. This allows a user 
to change keyboards or leave CB for a while 
without having to exit and then enter CB again. 
/ALL text 

Send a message to ALL CB users on all channels, 
the message part usually displayed as Cxx’ or Bxx’ 
indicating channel number is replaced by the string 
’OPR’ 

Attributes: 

Job attributes associate special processing modes with 
a specific job. Special modes cause different forms of the 
broadcast header to be displayed upon receiving a message. 


The mode or attributes set cause different information to be 
displayed (See Message Formats). 

Message Formats: 

Messages received are displayed in different formats 
depending on the Job attributes set. See below for descrip¬ 
tion: 

Message Formats: 

Messages recieved are displayed in different formats depending on 

the Job attributes set. See below for description: 

♦SPY+SECRETt[KBxxx:[PPN](xx)HANDLE)/Cxx]] Message text here 

I ! I I I I I I 

II | III I ♦---Message sent 

II | III ♦ — -Channel message sent 

I I I I I I on (xx), If message 

II | III sent by broadcast, 

II | III then Bxx is displayed 

I I I I I I If message is sent by 

II I III /ALL then OPR is 

II I III displayed 

II III ♦-Sending Jobs’ handle 

II || ♦— ——— -—Job sending message. 

II II This can be displayed 

I I I I if /JOB is toggled ON 

I | | +-Job PPN sending Msg. 

I 1 | This can be displayed 

III if /PPN is toggled ON 

I | --Job KB# sending Msg. 

I | This can be displayed 

I | if /KB is toggled ON 

I ----This is displayed if 

I the message sent has 

I the /RESTRICT option 

I set. 

-This is displayed if 

the message is sent 
with the /RESTRICT 
option, but recieved 
with the /SPY option 
set, which is 
privileged. 

System Messages 

CB system messages are also sent when a user enters 
or exits CB. The format for CB system messages is: 

" < < < Message Text> > > " 

CB data requests are not preceded by the ’" ’ characters. 
The format for CB data requests is: 

< Request message > ? —Answer in response— 

A complete list of possible messages/requests follows: 

^Initializing CBLIB Resident Library 

This is an informative message that the resident 
common library has just been loaded and is being 
initialized to empty by the first user requesting CB. 
It will also occur if the internal /CLR option when 
Handle requested is invoked. 

What is your ’Handle’ ? 

CB is requesting the 12 character phrase to call 
your CB job when sending a message. 

%%DEBUG MODE ENABLED 

The internal option /DBG has been invoked. This 
will allow a programmer to see the internal work¬ 
ings of CB for debug purposes. 

"CB-Vx.xx" 

If in talk mode, and a carriage return only is 
entered. CB will display its version number x.xx 
where this represents a number. 

' 'Now talking on channel xx 

A /TALK command has been executed and all 
future transmissions will occur on channel xx until 
another /TALK command is executed. 

' 'All channels except xx reset'' 

A ‘/MON -’ has been executed, resetting all chan¬ 
nels currently being monitored. The channel xx is 
your current Talk channel and has not been reset. 

'' Now monitoring channels: 

xx.yy.zz.nn 



















You can get mare from your 
RSTS system with MAS-M. 


MAS-M is the application 
software system from Martin 
Marietta Data Systems that can 
help you do more with your 
DEC hardware. That's because 
MAS-M is the on-line software 
system that gives you much 
more than you'd expect from 
packaged software. 

More Flexibility. 

MAS-M's modular design lets 
you choose from 10 different ap¬ 
plication systems: 

□ Accounts Receivable 

□ Accounts Payable 

□ General Ledger 

□ Order Processing 

□ Invoicing 

□ Inventory Control 

□ Inventory Accounting 

□ Bill of Materials 

□ Material Requirements 
Planning 

□ Purchasing 

You can implement just the 
modules you need to satisfy 
your demands. And no matter 
which combination you choose, 
the MAS-M system is always 
fully integrated. 

MAS-M's flexible design also 
makes it easy to install, and 
simple for your users to operate. 
And, since MAS-M is written in 


BASIC-PLUS-2, and based on 
the RMS-11 data management 
system, the software is fully 
compatible with your current 
RSTS/E operating system and 
DEC software. 

More Control. 

You can count on MAS-M for 
more comprehensive data accu¬ 
racy and security, too. 

MAS-M's powerful transac¬ 
tion processing MONITOR gives 
you maximum control over your 
data—from start to finish. User 
passwords and menu selections 
are checked against user secu¬ 
rity profiles. Data entry valida¬ 
tion is also standardized in the 
MAS-M MONITOR, so any in¬ 
valid data can be corrected 
before it reaches your applica¬ 
tion program. 

More Productivity. 

MONITOR is also an impor¬ 
tant tool in developing new ap¬ 
plications. You can use 
MONITOR to create input 
screens and validation rules on¬ 
line. And, MONITOR can help 
you improve programmer pro¬ 
ductivity by providing a stand¬ 
ard framework for input of code 
that minimizes the difficulties of 


user interface and terminal 
characteristics. 

More Support. 

You can count on Martin 
Marietta Data Systems for sys¬ 
tem development and im¬ 
plementation, comprehensive 
training, and clear, concise doc¬ 
umentation. We can also pro¬ 
vide an extensive Maintenance 
Service to support your MAS-M 
system. 

What it all adds up to is a 
packaged software system that 
can give you everything you 
need to get your jobs done. And 
more. Write or phone us today, 
and we’ll tell you more about 
how the MAS-M software sys¬ 
tem can work for you. 


MAS-M 


The Software 
System That Can 
Help You Do More. 


MARTIN MARIETTA 
DATA SYSTEMS O 


Martin Marietta Data Systems 
Marketing Services. R/H 
6303 Ivy Lane, Greenbelt, MD 20770 
(301) 982-6500 


AM#7r/Af AfXH/ 


CIRCLE 111 ON READER CARD 
















page 12 August 1982 

RSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALaSTSPROFESSIONALRSTSPHOFESSIONALRSTSPROFESSIONALflSrSPHOFESSIONALilSrSPflOFESSIONALRSrSPftOFESSiONALflSrSPROFESSPONALRSrSPROfESSIONALflSTSP 


When a /MONITOR command is executed, a 
display of all channels currently being monitored is 
shown. 

No users on this channel 

A /WATCH command has been executed in which 
no users are currently using the channel specified. 
No users 

A /LIST command has been executed, and there 
currently are no users on CB. 

Really CLEAR job * xx ? 

A /CLEAR command has been executed, and the 
specified job xx' is currently using CB. This is a re¬ 
quest to verify that you will kill that job. 

/CLEAR aborted! 

A /CLEAR has been executed, and anything but Y' 
has been entered to the verification request. The 
specified job has NOT been killed. 

* * IIYour Job has just been KILLED by the operator!! * * 

A /CLEAR has been executed by an operator; kill 
this user's job. 

* ‘Job # xx has been CLEARed* * 

A /CLEAR has been executed and job xx has been 
cleared from CB and killed off the system. 

* *CB—User: HANDLE—Please enter CB on Channel # 
xx* * 

A /CALL command has been executed by a CB user 
transmitting under the name HANDLE' and cur¬ 
rently transmitting on channel # xx. That user 
would like the user on the receiving job to enter CB 
and talk to him. 

* 'Request sent* * 

A /CALL has been executed successfully and a 
message has been sent to the specified keyboard. 

* *KB numbers will be printed* * 

The /KB toggle has been set allowing a user to 
receive KB numbers on messages transmitted. 

* *KB numbers will not be printed* ’ 

The /KB toggle has been reset. 

* ’SPY mode in enabled* * 

The privileged /SPY has been set. This allows 
messages normally requiring a /RESTRICT 
password to be transmitted to this operator job 
even though no /RESTRICT is set for the operator. 

* 'SPY mode is disabled* * 

The privileged /SPY has been reset. 

* * PPN numbers will be printed * * 

The /PPN toggle has been set allowing a user to 
receive PPN numbers on messages transmitted. 

* * PPN numbers will not be printed* * 

The /PPN toggle has been reset. 

* 'UPPER CASE only will be printed* * 

The /UPPER toggle has been set. This allows a 
given user to send and receive in only UPPER 
CASE. Normal system messages though are not 
translated. 

* * UPPER/LOWER case will be printed* * 

The /UPPER toggle has been reset. 

* 'JOB numbers will be printed* * 

The /JOB toggle has been set. allowing a user to 
receive job numbers along with messages. 


* ’JOB numbers will not be printed* * 

The /JOB toggle has been reset. 

* 'Your Password has been set* * 

A /RESTRICT command with a specified password 
has been successfully executed. 

* * Password has been turned off* * 

A /RESTRICT with no password has been ex¬ 
ecuted, resetting any previously specified 
password. 

* * Detaching from terminal * * 

A privileged /DETACH has been executed, 
detaching a CB job from its' terminal. 

* *dd-mmm-yy at hh:mm xm* * 

A /TIME has been executed showing the current 
Date (DD-MMM-YY) and Time (HH:MM xM). 

Error Messages 

CB error messages are printed when an error is en¬ 
countered in the execution of a CB command. Their format 
is as follows: 

**??<< Error Message Text??* * 

A complete list of possible error messages follows: 

* *??You may not talk LOGGED-OUT??* * 

CB has been entered as a logged out command with a 
specified Handle. A logged-out user may only execute 
certain commands, but may not talk through Cb unless 
they login first. 

* *??lnvalid [CCL] command. Type '/HELP'??* * 

An illegal command has been entered. Certain valid 
commands are invalid during CCL entry and these 
will be flagged with the CCL' specified in the 
message. 

* *??Please enter up to 12 characters??* * 

This message will occur if you enter more than 12 
characters for your user Handle. 

* *??That Handle' is IN-USE by Job *xx—Try again??* * 

A user entered a valid Handle to CB, but it is in use 
currently by job xx. 

* *??lllegal TALK channel??* * 

A bad channel number was entered on a /TALK 
command, i.e.; /TALK 42 or /TALK C. 

* *??lllegal Channel??** 

A bad channel number was entered on a /BROAD¬ 
CAST command. 

* *??Already monitoring channel xx??’ * 

A /MONITOR xx command was executed, but the 
user is already monitoring the channel xx specified. 

* *??Not monitoring channel xx??* * 

A /MONITOR -xx command was executing trying 
to UNMONITOR the channel xx, but the user is not 
currently monitoring that channel. 

* *??lllegal MONITOR channel xx'??* * 

A /MONITOR xx command was executed with xx 
being a bad channel number, i.e. /MONITOR 42 or 
/MONITOR C. 

* *??Cannot UNMONITOR your TALK channel??* * 

A /MONITOR command was entered with the 
users current TALK channel specififed for UN¬ 
MONITOR. This is illegal. 

* *??Illegal channel specified??* * 
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We re also able to save you plenty: For instance, you get DH11 performance for a DZ11 
price. Four new space-saving single-board communications multiplexers. And an increase in 
VAX-11 terminal handling capacity by up to 50%. Maintained nationwide by Control Data. 

Microprocessor-based architecture and common hardware deliver faster, more flexible line¬ 
handling. Self-test on power-up. Full software transparency. And Emulex reliability standards. 

Communicate with Emulex now. Write or call Emulex Corp., 2001 Deere Ave., Santa Ana, 
CA 92705; (714) 557-7580, TWX 910-595-2521. Outside Calif.: (800) 854-7112. 


For immediate off-the-shelf delivery, call our national distributor First Computer Corporation, 645 Blackhawk Dr. Westmont. IL 60559; (312) 920-1050 
In Europe Emulex Corp . 10th floor. Cory House. The Ring. Bracknell. Berkshire. England Telephone 0344-84234, Telex 851-849781 


CS11/H (PDP-11) $7560 for 48 lines* 
CS11/U (VAX-11) $7884 for 48 lines* 



Up to 64 DH11 channels from 
one board. 

DHII-compatible MUX lets 
you mix RS-232 & current loop 
interfaces in 8-line groups. 
Built-in DM11-compatible modem 
control. DMA output eliminates 
host interrupts. Self-test capabili¬ 
ties. Transparent to PDP-11 soft¬ 
ware. Emulex’ own software on 
VAX. 


*Price each in 100 quantities All Emulex 
disk, tape, and communications products 
can be combined to reach quantity price 
breaks 


CS11/V $4464 for 16 lines* 


CS21/Z $2550* 


CS21/U (VAX-11) $2844 for 16 lines* 
CS21/H (PDP-11) $2520 for 16 lines* 



Higher DV11 performance, 
lower price. 

DV11-compatible multiplexer. 
Mixes 8-lines synchronous & 
asynchronous on PDP-lls. Ideal 
for Bisync & DECNET. 8-32 
lines per controller. DMA input & 
output. Software transparent 
under DECNET. Compact pack¬ 
ageoffering higher line-handling 
speeds & improved throughput. 


Replace DEC DZ11/E and 
save. 

Perfect if you don't need 
DH11 performance. Software- 
transparent to all DEC operat¬ 
ing systems. Easy PROM change 
enables quick upgrade to DH-11 
performance. Saves one slot 
per 16 lines. 



New economical DHII-type 
multiplexer. 

Lowest cost, high- 
performance communications 
MUX. Priced way less than DEC'S 
DZ11, with DMA to boot. 16 RS- 
232 lines per board, modem con¬ 
trol included. Can use H317 
distribution panel. Transparent 
to PDP-11 software; Emulex 
software on VAX. 


EMULEX 

The genuine alternative 
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A /WATCH command was executed with a bad 
channel number specified. 

* *??Illegal user number specified??* * 

A /LIST xx was specified with an illegal job 
number xx specified. 

* *??lllegal Job number??* * 

A /CLEAR command was entered with a bad job 
number,i.e /CLEAR 67 or /CLEAR C. Job numbers 
may only be 1 -63. 

* *??Job specified not in CB??* * 

A /CLEAR was entered with as valid job number, 
but that job is currently not using CB, therefore, it 
cannot be CLEARED. 

* *??Bad KB number specified??* * 

A /CALL xx command was entered with a bad 
Keyboard number, it could be out of range 0-127 
or it might not exist on the system. 

* *??KB specified already in CB??* * 

A /CALL was entered with a valid keyboard 
number, but that keyboard is already using CB, so 
a /CALL would not be appropriate. 

* *??Nothing to send??* * 

A /ALL command was executed with no message 
specified to send to all users. 

* *??Password too long??* * 

A /RESTRICT password may only be 6 characters 
long. The password must be shortened and 
reentered. 

* *??Privileged operation??* * 

The specified command is legal but is a privileged 
command and the current user is not privileged. 
([ 1 .*])- 

??FN0PEN.POSITION-NO OPENINGS 

A fatal system error has occured, CB tries to 
recover by executing a /EXIT but recovery might 
not be complete. This error should never occur. 
?CB—FATAL ERROR -< Error Text> AT xxxxx 

A fatal system error has occurred, CB tries to 
recover by executing a /EXIT but recovery might 
not be complete. This error should never occur. 

Sign-On/Off Messages 

When a new user signs on to CB, all current CB users 
receive a message informing them of that fact. The CB sign- 
on messages appear as follows: 

* *New User—Job # xx (HANDLE) has signed on to CB* * 

Where: xx = The new user's job number 
Where: HANDLE = The new user's Handle 
When a CB user signs off of CB, all current CB users 
receive a message informing them a user has left CB. The CB 
sign-off message appears as follows: 

* * User # xx (HANDLE) is (leaving] CB [(Involuntarily)] * * 

[ABORTING from] 

Where: xx = The user’s job number 
Where: HANDLE = The user’s Handle 
The message will contain either leaving’ or 
ABORTING from’ depending on the conditions of the 
user’s exit. The ABORTING from' means a system er¬ 
ror has occurred in that user’s CB job and the library 
'CBLIB’ may or may not be corrupt. The ABORTING 


from’ message should never occur and it has not oc¬ 
curred since release V0.01. Due to improved 
recovery, even if it occurs, there is very little chance 
that it will affect any user but the one listed. 

The ’(Involuntarily)’ part is only transmitted if 
the user is being KILLed by the operator with the 
/CLEAR command. 

When the /CALL command is used, the following 
message is sent to the keyboard specified: 

* * CB—User: HANDLE — Please enter CB on Channel * yy * * 
Where: HANDLE = The handle of the user using 
/CALL 

yy = The channel that user is cur¬ 
rently Transmitting on. 


CCL/LOGGED-OUT Formats: 


CB can be set up by the operator to be called by CCL for 
certain functions (see Installation for installation instruc¬ 
tions). Commands that are valid through CCL are: 

/LIST - list jobs on CCL 

/WATCH n - Watch jobs on a certain channel. Note: 

For CCL, channel number MUST be 
specified. 

/HELP - Display help message 

/CLEAR xx - PRIV—Clear a job from CB, user must 

be privileged to do this. 

/TIME - Display current Date/Time 

CB may also be entered with the HANDLE in place of 
the command. Example: 

CB LONESTAR 


will enter you into CB with the handle set to LONESTAR'. 

Note: If CB is set up to be entered logged-out (see Instal¬ 
lation), all CCL commands are valid EXCEPT entering CB 
with a handle’ set, which gives an error message. 


Installation: 

CB is designed to be executed by many users at a time. 
Therefore, the following method will allow CB to use the 
least amount of user memory possible, while sharing the 
code/ data areas that are non-volatile. 

CB requires certain options be present in the RSTS en¬ 
vironment to execute: 

A) Resident library support be present 

B) RSX monitor emulation be present in the monitor 
If either of these options is not present, then CB will 

not run correctly. NONE OF THE FOLLOWING STEPS SHOULD 
GENERATE AN ERROR, IF THEY DO, A PROBLEM HAS 
DEVELOPED THAT MUST BE SOLVED BEFORE PRO¬ 
CEEDING!!! 

1) Obtain the following files: 

CB.B2S . CB.CMP. CB.CMD, CBLIB.MAC. ST2NM.MAC 

If the command files are not available, the following 
files may be entered under the names specified: 


• •CB.CMP" 


"CB.CMD" 


CB.CB = CB.ST2NM.LB:BP2COM CB/MU.CB = CB.ST2NM.LB:BP2C0M/LB 

/ / 

TASK = CBBAD TASK = ..CB.. 

UNITS = 12 RESLIB = LB:CBLI B/ R W 

// UNITS= 12 

// 





Don't 
buy a 


PDP'M 


VAX, PDP & DEC are trade marks of Digital Equipment Corporation 


HAMILTON RENTALS 

6 Pearl Court, Allendale, N.J. 07401 

PLEASE RUSH ME A QUOTATION BASED ON THE 
FOLLOWING SYSTEM: CIRCLE ONE ONLY IN EACH LINE 

PROCESSOR 11/23 11/24 11/34 11/44 VAXU/730, 750, 780 
DISKS RX02 RL01 RL02 RK07 RM02 RM80 RM05 RP07 
OPERATING SYSTEM RT11 RSX11M RSTS/E VAX/VMS CTS 

SOFTWARE WORD PROCESSING DBMS ACCOUNTING 

GRAPHICS OTHER _ 


RENTAL 6 Months 


18 Months 


Name _ 

Position_ 

Company _ 
Address_ 


City_ 

Telephone Number _ 


_ State _ 


-Zip 


M ... With departmental budget cuts, high interest rates, 
hardware prices falling back, an upgrade down the 
road...” 

“But I’ve always bought PDPlls. They’re the best.” 

“I didn’t say don’t USE a PDP11.. .just don’t BUY one!” 

“Huh?” 

“HAMILTON will rent you the latest in DEC systems— 
popular 11 /23s, 11 /24s, 11 /34s and 11 /44s, and all 
on a simple no-deposit monthly payment basis. Great 
for fitting into tight budgets. You’ll get prompt 
delivery, the systems configured the way YOU want 
them, AND they’ll bundle in your choice from 
HAMILTON’S extensive software and utilities library.” 

“That sounds great, but don’t these rental schemes lock 
you in for 5 years?” 

“No, not if you rent from HAMILTON. If you know 
you’re never going to change so much as a terminal for 
3-5 years, then go talk to your bank about a long term 
lease. But, if you want the flexibility of upgrading either 
all or any part of your system when you need to, then go 
talk to HAMILTON about rental. They’ll listen.” 

“That’s really interesting. 1 didn’t know I had that kind of 
rental alternative.” 

“And what’s more, you can talk to HAMILTON about 
their rental-with-purchase-option plan which gives 
you the right to buy the system when you’re ready.” 

“But will DEC maintain my HAMILTON rental systems?” 

“DEC maintenance is already INCLUDED in your 
monthly rentals. Plus, HAMILTON handles all the 
shipping and guarantees you a really smooth installa¬ 
tion.” 

“HAMILTON certainly has a comprehensive rental pro¬ 
gram.” 

“Of course. They have more experience in renting DEC 
systems than anyone else, with thousands of installa¬ 
tions in Europe and North America.” 

“You know, if they hadn’t limited my department budget 
this year, I could have gone straight to a VAX. Hey. I don’t 
suppose HAMILTON rents.” 

“VAX? Of course! Call them now at... 

Toll Free 800-631-0298 
In New Jersey 201-327-1444 
In Canada 416-251-1166 

or complete the coupon for an individual rental quota¬ 
tion on a system of your choice.” 


HAMILTON 



415 Horner Ave., Toronto, M8W4W3 


LONDON PARIS DUSSELDORF CALGARY 


CIRCLE 10 ON READER CARD 
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2) Macro assemble ST2NM: 

RUN $MAC 

MAC > ST2NM = ST2NM 
MAOIZ 

3) Compile CB using Basic-Plus 2: 

RUN SBASIC2 

OLD CB.B2S 

COM/OBJ/LINE/CHAIN 

4) TKB the resulting file: 

TKB @CB.CMP 

5) Look at the Task Builder map (CB.MAP) for the section 
marked BP20TS, all names under this section will be 
built into CBLIB, the communications library. This 
causes all the BP2 code segments to be shareable. The 
names you find under the section above will be used 
later. SAVE THE MAP ON HARD-COPY!! 

6) Macro assemble the communications library: 

RUN $MAC 

MAO CBLIB = CBLIB 

MAOIZ 


UT ADD LIBRARY LB:CBLIB<0>/ADDR:XXX/RW/STAY 

(xxx = memory address to located library, it is site-dependent. The <0> allows 
writing to the library). 

Note: The /RW is important as it allows the communication between jobs by 
specifying the library is Read/Write and not Readonly. 

If the library is not made permanent with the /STAY shown above, when there 
are no CB users and your system starts swapping. CBLIB will leave memory, caus¬ 
ing the first new CB user to get a message stating the library is being re-initialized. 
This will not hurt anything, but may be annoying. 

If the library is not ADDed with a protection code of < 0>. then PROTECTION 
VIOLATION errors will occur when running CB. 

13) Task build to CB program again using CB.CMD this 
time: 

TKB @CB.CMD 

14) Run MAKSIL to turn it into a resident library: 

RUN $MAKSIL 

Resident Library name ? CBCODE 

Task-Built Resident Library input file <CBLIB.TSK> ? CB.TSK 
Include symbol table (Yes/No) < Yes>? NO 
Resident Library output file <CB.LIB> ? CB.TSK 
CBCODE built in 2 K-words. 0 symbols in directory 
CB.TSK renamed to CB.TSK < 104> 


7) Enter a file named CBLIB.CMD consisting of the follow¬ 
ing: 

CBLIB/-HD/PI.CBLIB.CBLIB = CBLIB 
LB: BP2COM / LB:?7???? 

LB: BP2COM / LS:77777? 

LB: BP2COM / LQ:77777? 


LB:BP2COM/LB:RQLCB 
LB:BP2C0M/LB:SAVRG 

/ 

PAR = CBLIB:060000:110OOO 
STACK = 0 

// 

8) TKB the library using the edited file from step 07 with 
the following: 

TKB ©CBLIB.CMD 

9) Run RESSTB which is distributed on your BP2 installa¬ 
tion tape. 

RUN RESSTB 

ENTER FILE SPECIFICATION FOR RESIDENT LIBRARY? CBLIB 
ENTER 3 CHARACTER CCL/MCR NAME ? BP2 
THE PSECT FOR YOUR LIBRARY IS BASOTS. 

Note: Always enter BP2 whether or not that is the CCL 
name for your BP2 compilier. 

10) Run MAKSIL to turn it into a resident library: 

RUN SMAKSIL 

Resident Library name ? CBLIB 

Task-Built Resident Library input file <CBLIB.TSK> ? <CR> 

Include symbol table (Yes/No) < Yes>? <CR> 

Symbol table input file <CBLIB.STB>? <CR> 

Resident Library output file <CBLIB.LIB> ?<CR> 

CBLIB built in XX K-words. YYY symbols in directory 
CBLIB.TSK renamed to CBLIB.TSK<40> 

Note: XX above is 10 or 11 depending on BP2 compiler 
used. YYY should be a relatively large number 
(100-800). 

11) Move CBLIB.LIB. CBLIB.STB, CBLIB.OBJ to LB: 

PIP LB:<40> = CBLIB.OBJ.CBLIB.LIB,CBLIB.STB 

12) Add library with Utilty: 


Note: These 777777 are to be replaced by 
the names found in step 05 above. There 
are about 60 of them all starting with $' 
EXCEPT the last TWO. 

NOTE: These MUST be entered in the 
same order as found on your CB.MAP 
from Step 05 


15) Move CB.TSK to execution account: 

Move CBCODE.LIB TO LB: 

PIP LB: = CBCODE.LIB 
PIP [PPN] < 232 >= CB.TSK 

Note: [PPN] is the project.programmer that the task will execute from. Program 
MUST be set privileged (i.e. <232>)H 

FILES: CB.B2S.CB.0BJ.ST2NM.MAC.ST2NM.0BJ 
CB.CMP.CB.CMD 

may now be removed if space is needed. 

16) Add the second resident library CBCODE: 

UT ADD LIBRARY LB:CBCODE/ADDR:XXX 

(xxx = memory address to located library, it is site-dependent). 

17) * ‘OPTIONAL* • 

Add CCL to allow CB to run direct (See CCL Format): 

UT ADD CCL CB* = [PPN]CB.TSK;PRIV 30000 
Note: [PPN] is from step 15 above. 

18) **OPTIONAL"* 

CB can also be entered from LOGIN by entering a state¬ 
ment into LOGIN.BAS and recompiling it into $. The 
statement follows: 

32256 DATA CB. '[PPN]CB\2.4 

This allows all commands that CCL entry allows except 
entry to CB with a specified handle. 

Note: [PPN] is from step 15 above. 

19) Execute CB by CCL or otherwise. A SYSTAT of the job 
should show “..CB.." as the jobname. If CB' or CBBAD' 
is the jobname. 1 or more installation steps were skip¬ 
ped. INSTALL CB again or it will not run correctly!! 

NOTE: In the RSTS/E V7.1 environment, a CB user's ter¬ 
minal MUST have NO GAG' set or CB will not send any 
messages to his terminal. 

Sample Run of CB: 

A sample run of CB demonstrating most commands in 
regular as well as CCL formats follows: 







COES WITH 
LSI 11, POP 11, VAX 11* 


Dilog offers the widest range of single board DEC emulating disc 
and magnetic tape controllers for LSI-11,11/2,11/23, PDP-11 and 
VAX-11 compatibility. 

This growing family includes over 20 software transparent disc 
and tape products: WINCHESTER AND BACKUP SOLUTIONS 
FOR MOST APPLICATIONS. 

DISC— 5V4," 8" or 14" WINCHESTER/SM D/CM D/LARK/ 
CARTRIDGE/FLOPPY controllers with RX02, RK05, RL01/RL02, 
RP02/RP03, RK06/RK07 and RM02/RM05 emulations and features 
like 22-bit addressing, 32 or 56-bit ECC, universal formatting (allows 
you to mix drive types on the same controller without hardware 
modification), and automatic media flaw compensation. 

MAG TAPE— Va" cartridge/ 1 /^" NRZI/PE, streaming or conven¬ 
tional couplers or controllers with TM11, TS03 and TS11 emulations. 

NEW VAX-11/PDP-11 CONTROLLERS 

• DU 132 TS-11 emulating coupler with expanded buffering for 
streaming or conventional V 2 " industry standard magnetic tape 
drives. One coupler can accommodate up to 4 drives at speeds to 
125 ips, and you get dual density 800/1600BPI as an added feature. 
RT, RSX, RSTS and VMS software compatibility. 

• DU 215 RK06/07 emulating SMD disc controller with 56-bit ECC, 
universal formatting, optimal device for Winchester and CMD 
applications. RSX, RSTS and VMS software compatibility. 

• DU 218 RM02/05 emulating SMD disc controller for SMD and 
Winchester applications with full software transparency under RSX 
and RSTS as well as Media compatibility when used with 80 and 
300 MB SMD (CDC 9762/9766) compatible disc drives. 


NEW LSI-11 CONTROLLERS 

• DQ 212/215 SMD interface. Universal formatting allows mixing or 
matching two 8" or 14" drives with different characteristics and 
without component changes for up to 220 MB of software trans¬ 
parent formatted capacity. 56-bit ECC, RP02/03 or RK06/07 
emulations. 

• DQ 444 CDC FINCH interface. Intelligent uP module mixes any two 
drives of this class with universal formatting. RL01/02 emulations. 
Built-in drive capacity expansion handling. 

All DILOG controllers are price competitive with significant OEM 
discounts being offered under a Mix and Match plan. 30-day delivery 
is standard. Distributor inquiries invited. For complete price/ 
performance details, contact DILOG. 

Corporate Headquarters 

12800 Garden Grove Blvd. • Garden Grove, Calif. 92643 

• Phone: (714) 534-8950 • Telex: 681 399 DILOG GGVE 
Eastern Regional Sales Office 

64-A White Street • Red Bank, New Jersey 07701 

• Phone: (201) 530-0044 
European Sales/Service Office 

12 Temple Square • Aylesbury, Buckinghamshire • England 

• Phone: 44-296-34319 or 34310 • Telex: 837 038 DILOGI G 


□I5TRIBUTED 
■■LOGIC tORP. 



NUMBER 1 FOR DEC-11 
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SY/L 

Resident Libraries: 


T23» 

SECRET[[KB020:[1,10](15)PHIL/C23]] I AM LEAVING SEE YOU LATER 


Name 

Prot 

Acct Size 

Users 

Comments 


RMSRES 

< U2> 

[ 0,1 ] 23K 

9 

Perm, 

Addr:873 

T?3>X)K, BYE 

ED? 

< U2> 

[0,1 ] 20K 

1 

Perm, 

Addr:853 

T23» 

CBCODE 

< U2> 

[ 1,11 ] 8K 

0 

Perm, 

Addr:827 

••User #15 (PHIL) is leaving CB” 

CBLIB 

< 0> 

[ 1,11 ] 10K 

0 

Perm, 

Addr:835, R/W 


BASICS 

< U2> 

[ 0,1 ] 8K 

0 

Perm, 

Addr:8k5 

T23»/EX 

CB 






Ready 

CB - V01 

.03 

RSTS V7.1-11 C OLFBP 

11/70 



CB/LI 

What is 

your ' 

Handle' ? TEST PERSON 




Current CB User list: 


T19>/LI 

Current CB User list: 

*2U [1,10] P2J20 TEST PERSON Talk: 19 Att: None 

Mon: 19 

T19> 

••New User - Job #15 (PHIL) has signed on to CB” 

/LI 

Current CB User list: 

#15 [1,10] KB020: PHIL Talk: 19 Att: None 

Mon: 19 

#2U [1,10] P2J20 TEST PERSON Talk: 19 Att: None 

Mon: 19 


T19> 

[[PHIL/C19]] HELLO TEST PERSON 

T19>HELL0 PHIL 
T19>/VA 19 

Users on Channel # 19 

#2U [1,10] P2J20 TEST PERSON Monitor, Talk 

#15 [1,10] KB020: PHIL Monitor, Talk 

T19>/JO 

JOB numbers will be printed 
T19>/KB 

KB numbers will be printed 
T19>/PP 

PPN numbers will be printed 
T19> 

[[KB020:[1,10](15)PHIL/C19]] HOW DOES THIS REAF 

T19>LETS GO TO CHANNEL 23 
T19> 

[[KB020:[1,10](15)PHIL/C19]3 OK, LETS 
[[KB020:C1,10](15)PHIL/C19)] GO 

T19>/TALK 23 

••Now talking on channel 23 
T23>/VA 23 

Users on Channel # 23 

#2k [1,10] P2J20 TEST PERSON Monitor, Talk 

T23 WATCH 19 
Users on Channel # 19 

#2k [1,10] P2J20 TEST PERSON Monitor 

#15 [1,10] KB020: PHIL Monitor, Talk 

T23>/TIME 

•■l6-Mar-82 at 12:33 PM” 

T23> 

••CB - V01.03” 

T23>/WA 

Users on Channel # 23 

#2k [1,10] P2J20 TEST PERSON Monitor, Talk 

#15 [1,10] KB020: PHIL Monitor, Talk 

T23> 

[[KB020:[1,10](15)PHIL/C23]] IM AM HERE I IIIII I 
T23>/MON 

••Now monitoring channels: 

19 23 

T23>/M0N -19 

••Now monitoring channels: 

?3 

T23>LETS GET SECRET USING YOUR LAST NAME 

T23>/PES PLOMPR 

••Your Password has been set f * 

T23» 

[[KB020:[1,10](15)PHIL/C23]] OK, SOUNDS GOOD 

T23>>/VA 23 

Users on Channel # 23 

#2k [1,10] P2J20 TEST PERSON Monitor, Talk, PSWD 

#15 [1,10] KB020: PHIL Monitor, Talk, PSWD 


No users 


Ready 

CB/G 

••Invalid CCL command, Type '/HELP'” 

Ready 

CB/WA 19 

Users on Channel # 19 
No Users on this channel 


Ready 
CB/CL 19 

••??Specified job not in CB??” 

CB PHIL2 
T19>/LI 

Current CB User list: 

#2k [1,10] P2J20 PHIL2 Talk: 19 Att: None 

Mon: 19 

T19>/EX 
Ready 


•CB Command Reference Card - V01.03' 
CB Commands are: 


/TALK n 


/MONITOR n,m,..z- 


I /RESTRICT xxxxxx 


/BROADCAST nn Text- 


/CALL Kbn# 

/SPY (PRIV) 

/CLEAR n (PRIV) 


/DETACH (PRIV) 

/ALL Txt (PRIV) 

/TIME 

/KB 

/PPN 

/JOB 

/UPPER 

/LIST [n] 


/WATCH [n] 


/HELP 

/EXIT 


Change talk channel to ’n'. 

This is the channel that you 
•Transmit’ on. 

Monitor All channels specified 
If negative, Unmonitor channel. 

If negative, with no number, then 
Unmonltor ALL channels (Except TALK) 
Restrict sending message to 
any JOB having 'xxxxxx' as 
it's internal password, If no 
argument, then turn off password 
Allows a message to be sent to everyone 
even if a password is set. This allows a 
user to send text to everyone without 
having to reset his password, send a 
message and then set the password again. 
If 'nn' is Included, then message is sent 
on channel #nn, else it is sent on the 
users' normal talk channel. 

Send a message to specified terminal 
requesting that they enter CB 
Allows operator to recieve Restricted 
messages without knowing PASSWORDS 
Clear out Job specified by 'n'. 

This removes Job from tables and 
KILLs job off system (Logs out). 

Detach from the current terminal 
Send message to all CB users. 

Display current Date/Time. 

Toggle KB on message switch 
Toggle PPN on message switch 
Toggle JOB on message switch 
Toggle Upper/Lower Translation switch 
List current users on CB. 

If ’n' is specified, then list 
only that user 

List all users WATCHING channel 'n' 

If 'n' la not entered, then all users on 
current talk channel are shown. 

This message 
Exit CB 


Note: *Z and *C act like '/EXIT' was entered 

All commands may be abbreviated to 2 letters. 


More complete descriptions of each command can be found 
in the documentation for CB. 


T23»I AM DONE 
T23» 

SECRET[[KB020:[1,10](15)PHIL/C23]] DO YOU READ ME???????????????? 

T23»/WA 19 

Users on Channel #19 

#15 [1,10] KB020: PHIL Monitor 

T23»/LIST 

Current CB User list: 

#15 [1,10] KB020: PHIL Talk: 23 Att: PSWD PERSON 

Mon: 19 23 

#2U [1,10] P2J20 TEST PERSON Talk: 23 Att: JOB KB PPN PSWD PERSON 

Mon: 23 


Questions or comments: 

Questions or comments about CB? You may write or 
call directly to the following address: Philip Hunt. O.L.F.B.P., 
6400 E. Broad Street, Columbus, Ohio 43213, (614) 
863-3473. 

A tape containing all command files, source code and 
documentation is available, send a tape and $15.00 to the 
above address. • • • continued on page 20 







The 

Single 

Source 

for 

Digital 

Products 

Service 

DEC Module Repair, 
Exchange or 
Replacement 


Photos show how we’re fully 
equipped to repair and test DEC* 
PDP-11 * and TERMINAL MODULES. 
All modules we repair are 100% 
inspected. 





Expert, Fast and Reliable 
Work 


DIGITAL PRODUCTS 
REPAIR CENTER 

939 Eastwind Drive 
Westerville, Ohio 43081 
614/890-0939 ' 


Serving the computer systems 
market since 1973, we are now 
troubleshooting, repairing and 
testing hundreds of modules 
weekly. 

We can turn around a critical 
repair job in just 24 hours! Ten- 
day service is normal. 


The modules we return to you are 
guaranteed to meet or exceed 
the manufacturer’s specifica¬ 
tions. And we prove it by sub¬ 
mitting an inspection and test 
report. 

For emergency service, 7 days a 
week, 24 hours a day, call 

614/890-0939 


*DEC and PDP are registered trademarks of Digital Equipment Corporation. 


RELIANCE ELECTRIC 


r 


H-1580 
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[4,8] CB 

,B2S 



! 

JBNO* 

- Utility Variable 

& 






1 

JBNUM* 

- Utility Variable 

& 






I 

JOB* 

- FNBROADCAST* usr.Job* as * 

& 




& 


1 

JOB.FLAGS*(63) 

- CBLIB - User job attrbutes 

& 




& 


! 

JOB.OPT* 

- /JOB option bits values 

A 

PROGRAM 


CB 

& 


1 

KB* 

- FNKB.NUMBER* hold kb dcder 

& 

AUTHOR 


PHILIP HUNT (0LFBP) 

& 


I 

KB* 

- /LIST formatted kb# hold 

& 

INITIAL 

DATF: 

02/26/82 

& 


1 

KB.OPT* 

- /KB option bits value 

& 

EDIT: 


V01.03 

& 


1 

KB.SND* 

- FNBROADCAST* kb# to snd to 

& 

EDIT DATE: 

03/30/82 

& 


I 

KBN* 

- FNKB.NUMBER* kb# decoded 

A 




& 


I 

KBN* 

- FNKB.NUMBER* formtted hold 

A 




& 


I 

KBS* 

- FNBROADCAST* - Utility Var 

A 




& 


1 

KILL.JOB* 

- /CLEAR kill Job sys rcvr 

A 

CB allows any user on 

a RSTS/E system to communicate with 

& 


I 

LOGGED.OUT* 

- Curr user not logged in 

A 

any other user on the 

same system through an emulation of 

& 


1 

MCNT* 

- Utility Variable 

A 

a citizens* band radio. Each 

user has a 'HANDLE' that is 

A 


I 

MSG* 

- FNBROADCAST* - msg to send 

A 

transmitted along with any messages intended for another 

& 


1 

ONE.USER* 

- /LIST no user flags 

A 

user monitoring the same channel. Multiple users may be 

& 


1 

OPEN.POS* 

- Utility Variable 

A 

monitoring any or all 

CB channels. There are 40 channels 

& 


1 

OPNX* 

- Utility Variable 

A 

for communication as 

well special modes to send/recieve 

& 


1 

OTHER.POS* 

- Utility Variable 

A 

only upper case, send 

messages only to people knowing a 

& 


I 

OTHER.USER* 

- /CLEAR - Position of a usr 

A 

changeable password, 

etc. 


& 


1 

0USRX* 

- Utility Variable 

A 




& 


1 

PPN* 

- Initial current user ppn 

A 

There are special options that allow a privileged user to 

& 


1 

PPN* 

- FNBROADCAST* ppn formatted 

A 

detach from a keyboard, kill 

a CB Job, send messages to 

& 


1 

PPN.OPT* 

- /PPN opt bits value 

A 

all users on CB, etc. 



A 


1 

PS* 

- Utility Variable 

A 




A 


1 

PS* 

- Utility Variable 

A 

CB uses 2 resident libraries 

and uses only 2K of user 

A 


1 

RUNNING.IN.ERROR* 

- A Fatal error occured flag 

A 

space to allow many CB Jobs from using a large amount of 

A 


I 

SECRET.OPT* 

- /RESTRICT opt bits value 

A 

memory. 



A 


1 

SEND.KILL.MSG* 

- /CLEAR send msg SYS rcvr 

A 




A 


1 

SEND.MSG* 

- Send msg SYS call rcvr 

A 




A 


I 

SND.HDR* 

- FNBROADCAST* hdr build var 

A 






1 

SPY.OPT* 

- Spy option bits value 

A 




A 


! 

ST* 

- /LIST start position 

A 




A 


! 

ST*(64) 

- CHANNELS) array decoder 

A 

MODIFICA 

T I 0 N 

HISTORY 

A 


1 

STRT.ARG* 

- Start pos of cmd argument 

A 




A 


1 

TALK* 

- Current usr talk chnl hold 

A 






1 

TALK.CHAN*(63) 

- CBLIB - User talk channels 

A 




A 


I 

TYP* 

- For error, CCL/reg entry 

A 

Date Edit 

BY 

Reason 

A 


1 

UFLAG* 

- User attribute flag hold 

A 

022782 vOO.OI 

pjh 

Test version. 

A 


I 

UPPER.OPT* 

- Upper case only opt bits 

A 

030182 vOl.OO 

Pjh 

Original Issue. 

A 


1 

USER.JOB* 

- Current user Job number 

A 

030282 vOl.OOa 

pjh 

Put BP2 threads into CBLIB. 

A 


1 

USER.POS* 

- FNUSER.POS* utility var 

A 

030582 vOI.01 

PJh 

Put object code into CBC0DE. 

A 


1 

USER.PROG* 

- Current user progmmr # 

A 

032582 vOI.02 

Pjh 

Add /CALL,/TIME commands. 

A 


! 

USER.PROJ* 

- Current user project # 

A 



Fix /CLEAR for kill on 

A 


1 

USR* 

- Utility Hold Variable 

A 



current Job number. 

A 


1 

USRX* 

- Utility hold Variable 

A 



Add ST2NM macro code for 

A 


I 

VALID* 

- Valid commands check var 

A 



conversions to speed up. 

A 


1 

VERSION* 

- CB Version number 

A 

033082 V01.03 

Pjh 

RSTS Professional Release 

A 


I 

wx* 

- Utility Index Variable 

A 




A 


1 

x* 

- Utility Index Variable 

A 




A 


! 

XXX* 

- Utility Index Variable 

A 






1 

Y* 

- Utility Index Variable 

A 




A 

4 


I 

YX* 

- Utility Index Variable 

A 

4 

VARIABLE 

D E 

FINITIONS 

A 

A 


1 


================================ 

A 

JL 

ANS$ 


- User reponse holder var 

A 

A 

30 

1 

1 

I 

USER-DEFIN 

ED FUNCTIONS 

a 

& 

& 

ANY.USERS* 


- /WATCH any usr for msg fig 

A 


1 



A 

ARC* 


- Def argument Utility var 

A 






ARG1* 


- Def argument Utility var 

A 

31 

1 



A 

ARG1 $ 


- Def argument Utility var 

A 


1 

FNBR0ADCAST*( ) 

- Broadcast to a channel func 

A 

BCST.CHNL* 


- FNBRODCAST Msg channel hid 

A 


1 

FNCHAN*( ) 

- Display 2-digit no, ldng 0s 

A 

BCST.TYPE* 


- FNBRODCAST Typ:/B,/C, /OPR 

A 


I 

FNGET.CHAN*( ) 

- Get a chnl * to int array 

A 

BFLAG* 


- FNBRODCAST send type flag 

A 


! 

FNKB.NUMBER*( ) 

- Format a KB number 

A 

BITS* 


- Hold variable for bit set 

A 


I 

FNLOCK.COMMON* 

- Lock cbllb common area 

A 

BRDCST* 


- Channel to send on /BROAD 

A 


I 

FNOPEN.POSITION* 

- Find open position in chnl 

A 

CB.PASS* 


- Currently parsed password 

A 


1 

FN0THER.POSITION*( ) 

- Find user in a channel 

A 

CB.PASS$(63)=6 


- CBLIB - User /Res Pswrds 

A 


I 

FNPUT.CHAN*( ) 

- Put a chnl int array to * 

A 

CB.PROG*(63) 


- CBLIB - User progmmr nos. 

A 


1 

FNUNLOCK.COMMON* 

- Unlock cblib common area 

A 

CB.PR0J*(63) 


- CBLIB - User project nos. 

A 


1 

FNUSER.POSITION* 

- Find curr user in a channel 

A 

CCL.ENTRY* 


- CB entered as CCL flag 

A 


1 



A 

CHANNEL*(40)=64 


- CBLIB - All CB chnls array 

A 





A 

CHHN* 


- Hold Utility Variable 

A 






CHN* 


- Channel # hold var as int* 

A 

40 

I 



A 

CHN* 


- Channel # hold var as str* 

A 


1 



A 

CLR* 


- /CLR internal command flag 

A 


I 

COMMON ARE 

: A S 

A 

CM* 


- Index on Command type 

A 


I 



A 

CMD* 


- User entered Command/Msg 

A 






COMMON.IN.USE* 


- CBLIB - Common locked flag 

A 

41 

1 



A 

COMMON.INIT* 


- CBLIB - Common initialized 

A 


1 

CBLIST 

COMMON DATA AREA IN CBLIB.LIB 

A 

CRLF* 


- CR/LF Hold string 

A 


I 

COMMON.IN.USE* 

- Lock common flag 

A 

CSTRG* 


- Put Channel hold variable 

A 


1 

COMMON.INIT* 

- Common init flag 

A 

CTRL.C.TRAP* 


- SYS Call reciever * 

A 


1 

CHANNEL*(40)=64 

- 40 channel user table 

A 

CTYP* 


- Command entered (2 lettrs) 

A 


1 

HANDLE*(63)=12 

- User Handle Table 

A 

CXX* 


- Index Utility Variable 

A 


1 

TALK.CHAN*(63) 

- User Transmit Chnl Tbl 

A 

DEBUG* 


- DEBUG on flag 

A 


f 

CB.PROJ*(63) 

- User project number Tbl 

A 

DETACH* 


- /DETACH SYS call rcvr 

A 


1 

CB.PROG*(63) 

- User progmmr number Tbl 

A 

DUMMY* 


- Hold Utility Variable 

A 


1 

JOB.FLAGS*(63) 

- User Job attributes Tbl 

A 

DUMMY* 


- Hold Utility Variable 

A 


! 

CB.PASS*(63)=6 

- User /RESTRICT Passwrds 

A 

DUMMY2* 


- Hold Utility Variable 

A 


1 



A 

EDIT.VAL* 


- Used for Msg Snd/Rcv CVT** 

A 





A 

EN* 


- /LIST command utility var 

A 






FIP*(30) 


- SYS Call array holder 

A 

50 

I 



A 

FIP2*(30) 


- SYS Call array holder 

A 


! 



A 

FLAG* 


- Hold Utility Variable 

A 


1 

SUBPROGRAM 

S CALLED 

A 

FLAGS* 


- Hold Utility Variable 

A 


! 



A 

HANDLE*(63)=12 


- CBLIB - User handles 

A 






HLD.ARG* 


- FNBRCADCAST* hold msg* 

A 

51 

1 



A 

HNDL* 


- Accepted HANDLE* 

A 


1 

ST2NM.MAC 


A 

HNDL.ENTERED* 


- Handle entered as CCL flag 

A 


1 

NM2ST - CHANGE NUM 

ARRAY(64) TO ST* VARIABLE 

A 

I* 


- Utility Variable 

A 


! 

ST2NM - CHANGE ST* 

VARIABLE TO NUM ARRAY(64) 

A 

12* 


- Utility Variable 

A 


1 



A 

II* 


- Utility Variable 

A 


l== 



A 
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60 I * 

I 4 

I RESIDENT LIBRARIES USED & 

I 4 

61 I * I * * 4 

I CBLIB .LIB/RO - COMMON DATA AREA/BP2 THREADS & 

| CBCODE.LIB/RW - OBJECT CODE EXECUTED BY BP2 THREADS & 

I 4 

(zzzzzzzzzzzzzzzzzzssszzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz & 

100 COMMON (CBLIST) COMMON.IN.USE*, & 

COMMON.INIT*, A 

CHANNEL** HOt) *6*1, 4 

HANDLE**63?)=12?, & 

TALK.CHAN*(63*), 4 

CB.PROJ*(63*), 4 

CB.PROG*(63*), 4 

JOB.FLAGS*(63*), 4 

CB.PASS*(63*)=6* & 

t & 

ICOMMON DATA AREA FORMAT: & 

I COMMON.IN.USE* = WHETHER ANOTHER CB JOB & 

! HAS THE COMMON LOCKED FOR UPDATE & 

I 0=NO, ANY OTHER VALUE = YES & 

I (COMMON IN USEsJOB# LOCKING & 

I COMMON.INIT* = WHETHER COMMON HAS BEEN & 

I INITIALIZED, IF YES = 378* ELSE GARBAGE & 

1 CHANNEL**) = ALL CHANNELS, PACKED JOB & 

I NUMBERS CURRENTLY MONITORING THIS CHAN & 

I CHANNEL**0) IS SPECIAL, IT CONTAINS & 

I ALL JOBS USING CB CURRENTLY, THIS IS & 

I USED FOR BROADCAST PURPOSES A 

I HANDLE**) = ALL JOBS USING CB HANDLES & 

I TALK.CHAN**) = ALL JOBS USING CB CURRENT & 

I CHANNEL THEY ARE TALKING ON & 

! CB.PROJ**) & 

I CB.PROG**) = PPN OF CB USER & 

I JOB.FLAGS**) = CURRENT OPTIONS A CB USER HAS & 

I SET, CURRENTLY DEFINED ARE: & 

I BIT 0 ON = PRINT PPN WHEN & 

I GETTING A MESSAGE & 

I BIT 1 ON = PRINT KB# WHEN & 

I GETTING A MESSAGE & 

I BIT 2 ON = PRINT JOB WHEN & 

I GETTING A MESSAGE & 

! BIT 3 ON = THIS JOB HAS A & 

I SECRET PASSWORD SET & 

I BIT ll ON = SPY BIT SET. A PRIV & 

I USER MAY RCV MESSAGES & 

I RESTRICTED WITHOUT & 

I KNOWING PASSWORD 4 

I BIT 5 ON = PRINT TO TERM IN UPR 4 

I CASE ONLY 4 

I BIT 6 TO 15 - NOT USED 4 

I CB.PASS**) = PASSWORD MULTIPLE USERS 4 

I MUST ENTER TO RECIEVE SECRET 4 

I MESSAGES 4 

I 4 

I 4 

110 ON ERROR GOTO 19000 4 

\ DIM FIP*(30*),FIP2*(30*),ST*(61t*) 4 

ts==z=zzzzzzzzzz===zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzszzz=z 4 

I DEFINE JOB.FLAGS**) BITS: 4 

! 4 

\ PPN.OPT* =1* 4 

\ KB.OPT* =2* 4 

\ JOB.OPT* s 4* 4 

\ ^SECRET. OPT* =8* 4 

\ SPY.OPT* = 16* 4 

\ UPPER.OPT* = 32* 4 

I DEFINE CURRENT USER ITEMS: 4 

! 4 

\ USER.J0B*=(PEEK(518*) AND 255*)/2* IGET JOBNO 4 

\ PPN* =PEEK( PEEK (PEEK* 520* )+8* )+2J|*) IGET PPN 4 

\ USER.PROJ*=SWAP*(PPN*) AND 255* 4 

\ USER.PROG*= PPN* AND 255* 4 

Izzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzszzzzzszzzzzzzz 4 

I PRINT HEADER, PROGRAM IDENTIFICATION (IF NEEDED) 4 

I 4 

\ VERSION* = "01.03" 4 

\ PRINT "CB - V";VERSION*,ERT*(0*) UNLESS CCL.ENTRY* 4 

\ PRINT UNLESS CCL.ENTRY* 4 

Izzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzszzszzzzzzzzzzzzz 4 

120 GOTO 200 IF COMMON.INIT*=378* INORMAL 4 

I INITIALIZE RESIDENT LIBRARY IF THIS IS THE FIRST USER 4 

I SINCE LIBRARY WAS LOADED 4 

I 4 

\ PRINT ^Initializing CBLIB Resident Library" 4 

\ PRINT 4 

\ COMMON.IN.USE*=USER.JOB* IJUST IN CASE 4 

\ CHANNEL** X*) =STRING*(6*i*, 0*) 4 

FOR X*=0* TO 1*0* 4 

\ FOR X*=0* TO 63* 4 

\ CB.PROG*(X*)=0* 4 

\ CB.P ROJ*(X*)=0 * 4 

\ TALK.CHAN*(X*)=0* 4 

\ JOB.FLAGS*(X*)=0* 4 

\ HANDLE**X*)="" 4 

\ CB.PASS*="" 4 

\ NEXT X* 4 

\ COMMON.INIT*=378* ISET INIT FLAG 4 


DEC 


DEC 1200 BAUD PRINTERS 
LA120-AA. EIA. KSR. Keyboard Only # $ ^995 

LAi20-BA. El . A '. K ? y ?°? r ^ K . ey . pa . d ; K . SR 2 075 
LA120-RA. ^ceiveOnly. 1J95 


CASH PRICES • IN STOCK 
IMMEDIATE DELIVERY 

— CALL SONJA OR LAURIE AT:- 

-(614) 889-0810- 

SCHERER’S 

MINI COMPUTER MART 

6145 Dolan Place Dublin, Ohio 43017 


BRAND NEW*WARRANTY*ATD 


CIRCLE 104 ON READER CARD 


\ COMMON.IN.USE*=0* IUNLOCK CORE 4 

|z========zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 4 

200 GOTO 1000 IF (CCL.ENTRY*<>0*) AND (HNDL.ENTERED*=0*) 4 

\ GOTO 230 IF LOGGED.OUT* 1 CANT ENTR NOT LOGED IN 4 

Izzzssszzzzzzszzzzzzzzzzzzzzzzzzzzzzzzzzzszzzzzzzzzzzzzzzzzzzzzzzzzz 4 

I ACCEPT USER ID UNLESS CCL ENTERED. CHECK FOR ‘HIDDEN' 4 

I OPTIONS. '/DBG's DEBUG, '/CLR‘ = FORCE CBLIB INIT 4 

I 4 

\ LINPUT "What is your 'Handle' ";HNDL * 4 

UNLESS (CCL.ENTRY*=-1*) AND 4 

(HNDL.ENTERED*=-1*) 4 

\ CCL.ENTRY*=0* 4 

\ HNDL.ENTERED*=0* 4 

\ II*= INSTRO*, HNDL*, "/DBG") IDEBUG MODE, HIDDEN 4 

\ CLR*=INSTR(1*,HNDL*,"/CLR") ICLEAR LIB HIDDEN FUNC 4 

\ II* = 0* IF USER.PR0J*<>1* 4 

\ CLR*= 0 * IF USER.PR 0 J*<> 1 * 4 

\ IF CLR* THEN 4 

COMMON.INIT*=0* 4 

\ GOTO 120 4 

205 DEBUG*=0* 4 

\ IF II* THEN 4 

HNDL*=LEFT(HNDL*,II*-1*) 4 

\ PRINT "**DEBUG MODE ENABLED" 4 

\ DEBUG*=-1* 4 

210 GOTO 215 IF HNDL*="" OR LEN(HNDL*)>12* 4 

\ FOR X*=1* TO 63* 4 

\ GOTO 220 IF HNDL*=HANDLE*(X*) 4 

\ NEXT X* 4 

\ GOTO 300 4 

215 PRINT """Please enter up to 12 characters""";CHR*(7*) 4 

\ GOTO 200 4 

220 PRINT "»"??That 'Handle' is IN-USE by Job #";X*; 4 

" - Try again??""";CHR*(7>) 4 

\ GOTO 200 4 

230 PRINT "«"??You may not talk L0GGED-0UT??""";CHR*(7*) 4 

\ GOTO 32700 4 

300 4 

I SETUP THE USER ITEMS FOR THIS RUN , DEFAULTS= 4 

I TALK ON CHANNEL 19, MONITOR 19, NO FLAGS SET 4 

I ""TELL THE WORLD WE ARE HERE"" 4 

I 4 

PRINT 4 

\ DUMMY*=FNLOCK.COMMON* 4 

\ CTRL.C.TRAP*=SYS(CHR*(6*)+CHR*(-7*)) 4 

4 

\ DUMMY2*=FNGET.CHAN*(0*) 4 

\ DUMMY*=FNOPEN.POSITION* 4 

\ ST*(DUMMY*) = USER.JOB* ISETUP IN CUR USER LIST 4 

\ DUMMY2*=FNPUT.CHAN*(0*) 4 


4 
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\ DUMMY2?=FNGET.CHAN?(19?) A 

\ DUMMY?=FNOPEN.POSITION? A 

\ ST?(DUMMY?) = USER.JOB? ISETUP CHAN 19 MONITOR A 

\ DUMMY2?=FNPUT.CHAN?(19?) 4 

A 

\ HNDL$=CVT$$(HNDL$,128?) A 

\ HANDLE$(USER.JOB?)=HNDL$ A 

\ JOB.FLAGS?(USER.JOB?)=0? A 

\ CB.PROJ?(USER.JOB?)=USER.PROJ? A 

\ CB.PROG?(USER.JOB?)=USER.PROG? A 

\ CB.PASS?(USER.JOB?)="" A 

\ TALK.CHAN?(USER.JOB?)=19? ITALK TO 19 FIRST A 

4 

\ DUMMY? = FNUNLOCK.COMMON? 4 

\ CMD$="""New User - Job #"+NUMl$(USER.JOB?)♦" ("fHNDL?*- 4 

") has signed on to CB""" 4 

\ DUMMY?=FNBROADCAST?(0?,CMD?,-1?) Itell everyone 4 




PROMPT THE CURRENT USER WITH HIS TALK CHANNEL NUMBER 
ADD AN EXTRA •>' IF HE HAS A PASSWORD SET 
ACCEPT COMMAND OR MESSAGE, IF IT BEGINS WITH »/’, 
THEN ASSUME IT IS A PROGRAM COMMAND 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

1 = 


PRINT "T"+FNCHAN?(TALK.CHAN?(USER.JOB?))■*■">"; 

PRINT IF JOB.FLAGS?(USER.JOB?) AND SECRET.OPT? 

OPEN "_JCB:" AS FILE 1? 

LINPUT #1?, CMD? 

CLOSE #1? 

EDIT.VAL?=8? 

EDIT.VAL?=40? IF JOB.FLAGS?(USER.JOB?) AND UPPER.OPT? 
CMD?=CVT??(CMD?,EDIT.VAL?) INO LDNG SPCS 

GOTO 1000 IF LEFT(CMD?,1)r"/" ICOMMAND 

IF CMD?="" THEN INOTHING 

PRINT "»"CB - V"{VERSION?;"••" I..S0 GIVE VERS 

GOTO 500 I AND GET MORE 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


600 IMESSAGE TO BROADCAST 4 
\ DUMMY?=FNBROADCAST?(TALK.CHAN?(USER.JOB?),CMD?,0?) 4 
\ GOTO 500 4 


1000 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


ICOMMAND 4 

CTYP?=CVT??(MID(CMD?,2?,2?),32?) lend in upper case 4 

UNLESS CCL.ENTRY? 4 

CTYP?=LEFT(CMD?,2?) IF CCL.ENTRY? 4 

CTYP?=CVT??(CTYP?,-1?) 4 

CTYP?="LI" IF CTYP?="L" IALLOW LIST_ 4 

CTYP?="HE" IF CTYP?="H" I...HELP TO BE ONE LTR ENTRIES 4 

CTYP?="""" IF (LEN(CTYP?)<>2?) 4 

OR (LEFT(CTYP?,1?)=".") 4 

CTYP?="""" IF CTYP?="**" ISNEAKY TO TRY ON CCL ENTRY 4 

4 

VALID$= n TA.BR.MO.WA.LI.FE.CL.EX.CA.KB.SP.PP.UP.AL.JO.RF.DE.TI" 4 


VALID?= 


".WA.LI.HE.CL.* 


CM?=INSTR(1?,VALID?,CTYP?) 
CM?=INT(CM?/3?)+1? IF CM? 
GOTO 1010 IF CM? 

TYP?="" 

TYP?="CCL " IF CCL.ENTRY? 
PRINT """??Invalid "+TYP?*' 
GOTO 32700 IF CCL.ENTRY£ 
GOTO 500 f 


IF CCL.ENTRY? 


ICHECK IF LEGAL 
! OFFSET COMMAND 


ISAY CCL PROBLEM 
command, Type ‘/HELP’??""" 


.TI" 4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


1010 IDO DISPATCH, GO BACK FOR MORE 

\ STRT.ARG?=INSTR(1?,CMD$," ") 

\ ON CM? GOSUB 2000,2800,3000,3800,4000,5000,5500,6000, 

6500,7000,7500,8000,8500,8900,9000,9500,9800, 
9900 

\ GOTO 32700 IF CCL.ENTRY? 

\ GOTO 500 


4 

4 

4 

4 

4 

4 

4 

4 


\ I2?=INSTR(STRT.ARG?+1?,CMD?," ") ICHN TYPED? 4 
\ GOTO 2810 IF 12?=0? INO CHN SPECFD 4 
\ CHN?=MID(CMD?,STRT.ARG?*1?,I2?-STRT.ARG?-1?) IGET CHNL 4 
\ BRDCST?=VAL(CHN?) ISAVE IT 4 
\ STRT.ARG?=12? ILETS DO IT 4 


2810 MSG?=RIGHT(CMD?,STRT.ARG?+1?) I 4 
\ GOTO 2950 IF BRDCST?<1? OR BRDCST?>40? IILLEGAL, SORRY 4 
\ DUMMY?=FNBROADCAST?(BRDCST?,MSG?,1?) (SEND, NO PSWD 4 
\ RETURN 4 


2950 PRINT """??Illegal Channel??""";CHR?(7?) 4 

\ RETURN 4 


3000 4 

I ""MONITOR COMMAND"" 4 

I 4 

GOTO 3500 IF STRT.ARG?=0? IILLEGAL IF NO ARG 4 

\ CMD?=RIGHT(CMD?,STRT.ARG?+1?) 4 

\ DUMMY?=FNLOCK.COMMON? 4 

3010 GOTO 3400 IF CMD?="" 4 

\ I2?=INSTR(1?,CMD?,",") 4 

\ CHN$=CMD? 4 

\ CMD?="" IF I2?=0? INO MORE 4 

\ GOTO 3050 IF 12?=0? IMUST BE LAST ONE 4 

\ CHN?=LEFT(CMD?,I2?-1?) 4 

\ CMD?=RIGHT(CMD?,I2?+1?) 4 

3050 GOTO 3100 IF CHN?="-" 4 

\ CHN?=ABS(VAL(CHN?)) 4 

\ GOTO 3700 IF CHN?=0? OR CHN?>40? 4 

\ GOTO 3110 IF INSTR(1?,CHN?,"-") IDELETE 4 


3060 DUMMY2?=FNGET.CHAN?(CHN?) 4 

\ DUMMY?=FNUSER.POSITION? 4 

\ IF DUMMY?<>-1? THEN 4 

PRINT """??Already monitoring channel 4 

FNCHAN?(CHN?);"??••" 4 

\ GOTO 3010 Ido another 4 


3070 DUMMY?=FNOPEN.POSITION? 

\ ST?(DUMMY?)=USER.JOB? 

\ DUMMY2?=FNPUT.CHAN?(CHN?) 

\ GOTO 3010 


4 

4 

4 

4 


3100 FOR WX?=1? TO 40? 

\ GOTO 3105 IF WX?=TALK.CHAN?(USER.JOB?) 

ICANT UNMONITOR '^FRS' TLK CHAN 
\ DUMMY2?=FNGET.CHAN?(WX?) 

\ DUMMY?=FNUSER.POSITION? 

\ GOTO 3105 IF DUMMY?=-1? 

\ ST?(DUMMY?)=0? 

\ DUMMY2?=FNPUT.CHAN?(WX?) 


4 

4 

4 

4 

4 

4 

4 

4 


3105 NEXT WX? 4 

\ DUMMY?=FNUNLOCK.COMMON? 4 

\ PRINT """All channels except 4 

TALK.CHAN?(USER.JOB?);" reset ••" 4 

\ PRINT 4 

\ RETURN 4 

3110 GOTO 3720 IF CHN?=TALK.CHAN?(USER.JOB?) 4 

ICANT UNMONITOR TALK CHANNEL 4 

\ DUMMY2?=FNGET.CHAN?(CHN?) 4 

\ DUMMY?=FNUSER.POSITION? 4 

\ IF DUMMY?=-1? THEN 4 

PRINT """??Not monitoring channel "; 4 

FNCHAN?(CHN?);"??*•" 4 

\ GOTO 3010 Ido another 4 

3120 ST?(DUMMY?)=0? 4 

\ DUMMY2?=FNPUT.CHAN?(CHN?) 4 

\ GOTO 3010 4 


2000 




4 

3400 

DUMMY?=FNUNLOCK.COMMON? 

4 

; 

••TALK COMMAND"" 



4 




1 




4 

3500 

PRINT """Now monitoring channels: " 

4 


GOTO 2500 IF STRT.ARG?=0? 



4 

\ 

MCNT?=0? 

4 

\ 

CMD?=RIGHT(CMD?,STRT.ARG?+1?) 



4 

\ 

FOR X?=1? TO 40? 

4 






\ 

PRINT "MONITOR - CHANNEL CHECKINGS ;X? 

4 

2010 

TALK?=VAL(CMD?) 



& 


IF DEBUG? 

4 

\ 

GOTO 2700 IF TALK?<1? OR TALK?>40? 



4 

\ 

DUMMY2?=FNGET.CHAN?(X?) 

4 






\ 

DUMMY? = FNUSER.POSITION? 

4 

2020 

DUMMY? =FNLOCK.COMMON? 



4 

\ 

GOTO 3550 IF DUMMY?=-1? 

& 

\ 

TALK.CHAN?(USER.JOB?)=TALK? 



4 

\ 

MCNT?=MCNT?+1? 

4 

\ 

DUMMY2?=FNGET.CHAN?(TALK?) 



4 

\ 

PRINT FNCHAN$(X?);" "; 

4 

\ 

DUMMY? =FNOPEN.POSITION? 



4 

\ 

IF MCNT?>15? THEN 

4 

\ 

ST?(DUMMY?)=USER.JOB? 



4 


MCNT?=0? 

4 

\ 

DUMMY2?=FNPUT.CHAN?(TALK?) 



4 


PRINT 


\ 

DUMMY? =FNUNLOCK.COMMON? 



4 




2500 

PRINT """Now talking on channel "; 



4 

3550 

NEXT X? 

4 


FNCHAN ?(TALK.CHAN?(USER.JOB?)) 

4 

\ 

PRINT 

4 

\ 

RETURN 



4 

\ 

PRINT 

4 






\ 

RETURN 

4 

2700 

PRINT CHR?(7?)5"""??I1legal TALK channel??""" 


4 




\ 

RETURN 



4 

3700 

PRINT CHR$(7?);"""??I1legal MONITOR channel 

4 

1====== 




4 


CHN?;"'??••" 

4 






\ 

GOTO 3010 

4 

2800 




4 




1 

••BROADCAST COMMAND"" 



4 

3720 

PRINT CHR$(7?);"""??Cannot UNMONITOR your "♦ 

4 

1 




4 


"TALK channel??""" 

4 


GOTO 2950 IF STRT.ARG?=0? 

1ILLEGAL IF 

NO ARG 

4 

\ 

GOTO 3010 

4 

\ 

BRDCST?=TALK.CHAN?(USER.JOB?) 

1 ASSUME STD 

CHN 

4 

I==== 
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3800 4 

| ••WATCH (USERS ON A SPECIFIC CHANNEL) 1 * 4 

I * 

GOTO 3900 IF (STRT.ARG}=0}) AND (CCL.ENTRY}=-1}) 4 

\ GOTO 3805 IF STRT. ARG} 00} 4 

\ CHN} =TALK.CHAN}(USER.J OBJ) 4 

\ GOTO 3807 4 

3805 CMD$=RIGHT(CMD},STRT.ARG}+1}) 4 

\ CHN}=VAL(CMD$) 4 

3807 GOTO 3900 IF CHN}<=0} OR CHN}>40} 4 

\ DUMMY2}=FNGET.CHAN}(CHN}) 4 

\ ANY.USERS}=0} 4 

\ PRINT "Users on Channel #";CHN} 4 

\ PRINT 4 

3810 FOR CXX}=1} TO 63% 4 

\ GOTO 3850 IF ST}(CXX})=0} INOT IN THIS POSITION 4 

\ USR}=ST}(CXX}) 4 

\ KBN$=FNKB.NUMBER$(ST}(CXX})) 4 

\ GOTO 3850 IF KBN$="ILL:" 4 

\ PRINT "#";NUM1$(USR});TAB(6}); 4 

"[";NUM1$(CB.PROJ}(USR}))♦","♦ 4 

NUM1}(CB.PROG}(USR}));"]";TAB(18}); 4 

KBN$;TAB(27}); 4 

CVT$$(HANDLE$(USR}),128});TAB(46}); 4 

\ PRINT "Monitor"; 4 

\ PRINT ", Talk"; IF TALK.CHAN}(USR})=CHN} 4 

\ PRINT ", PSWD"; IF (JOB.FLAGS}(USR}) AND SECRET.OPT}) 4 

AND (TALK.CHAN}(USR})=CHN}) 4 

\ PRINT 4 

\ ANY.USERS}=-1} 4 

3850 NEXT CXX} 4 

\ PRINT "No Users on this channel" IF ANY.USERS}=0} 4 

\ PRINT 4 

\ RETURN 4 

3900 PRINT "••??Illegal channel specified??**";CHR$(7}) 4 

\ RETURN 4 




PEC 

DEC CRT’S 

VT101-AA. EIA, Non Upgradeable . $ 995 
VT131-AA w/AVO, PCO, & Screen Editing 1.575 

VTIOO-AA.^. 1,375 

VT132-AA. AVO, Screen Editing . 1,450 


CASH PRICES • IN STOCK 
IMMEDIATE DELIVERY 

— CALL SONJA OR LAURIE AT:- 

-(614) 889-0810- 

SCHERER’S 

MINI COMPUTER MART 

6145 Dolan Place Dublin, Ohio 43017 


BRAND NEW*WARRANTY*ATD 


4000 4 

I **LIST (USERS) COMMAND** 4 

I 4 

ST}=1} 4 

\ EN}=63} 4 

\ ONE.USER}=0} 4 

\ GOTO 4010 IF STRT.ARG}=0} ICHK IF WE HAVE ARG 4 

\ — -VAL(RIGHT(CMD$,STRT.ARG}+1})) 4 

\ cN}=ST} 4 

\ GOTO 4600 IF EN}<1} OR EN}>63} 4 

\ ONE.USER}=-1} 4 

4010 PRINT "Current CB User list:" UNLESS ONE.USER} 4 

\ ANY.USERS}=0} 4 

\ PRINT 4 

\ DUMMY}=FNLOCK.COMMON} 4 

\ FOR X}=ST} TO EN} 4 

\ GOTO 4500 IF CB.PR0J}(X})=0} 4 

\ KB$=FNKB.NUMBER$(X}) 4 

\ GOTO 4500 IF KB$="ILL:" 4 

\ ANY.USERS}=-1} 4 

\ PRINT "#"+FNCHAN$(X});" ["♦NUM1$(CB.PROJ}(X}))+ 4 

","+NUM1$(CB.PROG}(X}))♦"]"; 4 

TAB(14});KB$;TAB(21}); 4 

CVT}}(HANDLE$(X}),128});TAB(34}); 4 

"Talk: "; 4 

FNCHAN$(TALK.CHAN}(X})); 4 

\ PRINT TAB(43});"Att: •; 4 

\ FLAGS} = JOB.FLAGS}(X}) 4 

\ PRINT "JOB "; IF FLAGS} AND JOB.OPT} 4 

\ PRINT "KB "; IF FLAGS} AND KB.OPT} 4 

\ PRINT "PPN "; IF FLAGS} AND PPN.OPT} 4 

\ PRINT "PSWD "; IF FLAGS} AND SECRET.OPT} 4 

\ PRINT "SPY "; IF FLAGS} AND SPY.OPT} 4 

\ PRINT "UPR "; IF FLAGS} AND UPPER.OPT} 4 

\ PRINT "None"; IF FLAGS}=0} 4 

\ PRINT TAB(73})j 4 

CVT$$( CB. PASS$( X}) ,-1}) ; 4 

IF (((JOB.FLAGS}(X}) AND 4 

SECRET.OPT}) <>0}) 4 

AND (DEBUG}<>0})) 4 

OR (USER.PROJ}=1}) 4 

\ PRINT & 

\ PRINT TAB(16});"Mon: "; 4 

\ MCNT}=0} 4 

\ FOR Y}=1} TO 40} 4 

\ DUMMY2}=FNGET.CHAN}(Y}) 4 

\ OTHER.USER}=FNOTHER.POSITION}(X}) 4 

\ GOTO 4050 IF OTHER.USER}=-1} INOT ON CHAN 4 

\ PRINT FNCHAN$(Y});" "; 4 

\ MCNT}=MCNT}+1} 4 

\ IF MCNT}>15} THEN 4 

MCNT}=0} 4 

\ PRINT \ PRINT TAB(21}); 4 

4050 NEXT Y} 4 

\ PRINT 4 

4500 NEXT X} 4 

\ DUMMY}=FNUNLOCK.COMMON} 4 

\ PRINT "No users " IF ANY.USERS}=0} 4 

\ PRINT 4 

\ RETURN 4 


CIRCLE 105 ON READER CARD 


4600 

\ 

| ssss 

PRINT "**??Illegal user number specified??**";CHR$(7}) 

RETURN 

4 

4 

4 

5000 





4 

1 

••HELP COMMAND** 



4 


PRINT 

"CB - V";VERSION};" 

Commands are:" 

4 

\ 

PRINT 




4 

\ 

PRINT 

"/TALK 

n 

Change talk channel to ’n'." 

4 

\ 

PRINT 

IV 


This is the channel that you " 

4 

\ 

PRINt 

II 


'Transmit' on." 

4 

\ 

PRINT 

"/MONITOR 

n,m,..z - 

Monitor All channels specified" 

4 

\ 

PRINT 

H 


If negative, Unmonitor channel." 

4 

\ 

PRINT 

n 


If negative, with no number, then 

" 4 

\ 

PRINT 

n 


Unmonitor ALL channels (Except TALK)" 4 

\ 

PRINT 

"/RESTRICT 

xxxxxx - 

Restrict sending message to" 

4 

\ 

PRINT 

n 


any JOB having 'xxxxxx' as" 

4 

\ 

PRINT 

i» 


it's internal password, If no" 

4 

\ 

PRINT 

H 


argument, then turn off password" 

4 

\ 

PRINT 

"/BROADCAST 

' nn Text- 

Allows a message to be sent to everyone" 1 

\ 

PRINT 

H 


even if a password is set. This allows a" 

\ 

PRINT 

VI 


user to send text to everyone without" 4 

\ 

PRINT 

•1 


having to reset his password, send a " 4 

\ 

PRINT 

H 


message and then set the password 

again." 

\ 

PRINT 

II 


If 'nn' is included, then message 

is sent' 

\ 

PRINT 

H 


on channel #nn, else it is sent on the" 4 

\ 

PRINT 

VI 


users' normal talk channel." 

4 

\ 

PRINT 

"/CALL Kbn# 

Send a message to specified termlnal"4 

\ 

PRINT 

n 


requesting that they enter CB." 

4 

5005 

IF USER.PROJ}=1} 

THEN 


4 


PRINT 

"/SPY 

(PRIV) - 

Allows operator to recieve Restricted" 4 

\ 

PRINT 

n 


messages without knowing PASSWORDS." 4 

\ 

PRINT 

"/CLEAR n 

(PRIV) - 

Clear out job specified by 'n'." 

4 

\ 

PRINT 

ii 


This removes job from tables and" 

4 

\ 

PRINT 

n 


KILLS Job off system (Logs out)." 

4 

\ 

PRINT 

"/DETACH 

(PRIV) - 

Detach from the current terminal. 

" 4 

\ 

PRINT 

"/ALL Txt 

(PRIV) - 

Send a message to ALL users on CB 

." 4 

5010 

PRINT 

"/KB 

_ 

Toggle KB on message switch" 

4 

\ 

PRINT 

"/PPN 

- 

Toggle PPN on message switch" 

4 

\ 

PRINT 

"/JOB 

- 

Toggle JOB on message switch" 

4 

\ 

PRINT 

"/TIME 

- 

Display current Date/Time" 

4 

\ 

PRINT 

"/UPPER 

- 

Translate all incoming/outgoing" 

4 

\ 

PRINT 

n 


message characters to UPPER CASE. 1 

" 4 

\ 

PRINT 

"/LIST [n] 

- 

List current users on CB." 

4 

\ 

PRINT 

n 


If 'n' is specified, then list" 

4 

\ 

PRINT 

N 


only that user" 

4 

\ 

PRINT 

"/WATCH [n] 

- 

List all users WATCHING channel 'i 

n'" 4 

\ 

PRINT 

H 


If 'n' is not entered, then all" 

4 

\ 

PRINT 

It 


users on current talk channel are 1 

" 4 

\ 

PRINT 

n 


shown. " 

4 

\ 

PRINT 

"/HELP 

- 

This message" 

4 

\ 

PRINT 

"/EXIT 

- 

Exit CB" 

4 

\ 

PRINT 




4 

\ 

PRINT 

"Note: *Z and *C act 

like '/EXIT' was entered" 

4 

\ 

PRINT 

" All 

commands may be abbreviated to 2 letters." 

4 

\ 

PRINT 




4 




















page 24 August 1982 

RSTSPROFESSIONALRSTSPFK>FESSIONALRSrSPRC>reSSIONALRSTSF>ROFESSIONALRSTSPfK)FESSIONALRSTSPROF^^ 


\ RETURN 4 

5500 4 

I **CLEAR JOB COMMAND (PRIV)** 4 

I 4 

\ GOTO 8950 IF USER.PR0J*<>1! IPRIV FUNCTION ONLY 4 

\ GOTO 5720 IF STRT.ARG!=0! IWE MUST HAVE AN ARG 4 

\ CMD$=RIGHT(CMD$,STRT.ARG!+l!) 4 

\ JBNUMJ=VAL(CMD$) 4 

\ GOTO 5720 IF JBNUM!<1! OR JBNUM! >63! 4 

\ DUMMY!rFNLOCK.COMMON! 4 

\ DUMMY2J=FNGFT.CHANJ(0!) 4 

\ OTHER.USER!rFNOTHER.POSITION!(JBNUM!) IUSER ON CB7??? 4 

\ DUMMYJ rFNUNLOCK.COMMON! 4 

\ GOTO 5730 IF OTHER.USER!=-l! !NO, CANT KILL 4 

\ PRINT "Really CLEAR job JBNUM!; 4 

\ INPUT ANS$ 4 

\ GOTO 5502 IF CVT$$(LEFT(ANS$,1!),-l!)="Y" 4 

\ PRINT "/CLEAR aborted!" 4 

\ RFTURN 4 

5502 KB$=FNKB.NUMBER$(JBNUM!) 4 

\ GOTO 5504 IF KB$="ILL:" 4 

\ KB.SND!=FIP2!(4!) 4 

\ GOTO 5504 IF KB.SND!<0! 4 

OR KB.SND!>127! !DETACHED IN CB?? - NO SEND 4 

\ CRLF$=CHR$(13!)+CHR$(10!)^CHR$(10!)+CHR$(10!) 4 

\ MSG$=CRLF$+ 4 

"••lIYour Job has Just been KILLED "+ 4 

"by the operator!!*•"♦ 4 

CHR$(7!)+CHR$(7!)«-CRLF$ 4 

\ SEND. KILL. MSG$=SYS(CHR$(6!)«-CHR$(-5*)+CHR$(KB.SND!)«. 4 

MSG$) 4 


6500 4 

! ••CALL COMMAND** 4 

I 4 

I Send message of form: 4 

I •••CB - User: Handle - Please enter CB on Channel #n**' 4 

I 4 

GOTO 6600 IF STRT.ARG!=0! INOTHING SPECIFIED 4 

\ ST!=VAL(RIGHT(CMD$,STRT.ARC!+1!)) 4 

\ GOTO 6600 IF ST!<0! OR ST!>127! 4 

\ DUMMY2!=FNGET.CHAN!(0!) 4 

6510 FOR X!=1! TO 63* 4 

\ GOTO 6550 IF ST!(X!)=0! !NO JOB THERE 4 

\ KB$=FNKB.NUMBER$(ST!(X!)) IGET JOB KB 4 

\ GOTO 6620 IF KBN!=ST! IIN CB-ABORT 4 


6550 NEXT X! 4 

\ MSG$=CHR|(7!)+" ## CB - User: "«■ 4 

CVT$$(HANDLE$(USER. JOB!), 16!)-*-" - "♦ 4 

"Please enter CB on Channel # "♦ 4 

NUM1$(TALK.CHAN!(USER.JOB!))♦"••" 4 

\ MSG$=CHR$(13!)+CHR$(10!)«-MSG$*CHR$(13!)+CHR$(10!)+CHR$(7!) 4 

\ SEND.MSG$ = SYS(CHR$(6!)+CHR$(-5!)* 4 

CHR$(ST!)-*-MSG$) 4 

\ PRINT "••Request sent**" 4 

\ PRINT 4 

\ RETURN 4 


6600 PRINT "••??Bad KB number specified??**" 4 

\ RETURN 4 


6620 PRINT "••??KB specified already in CB??**" 4 

\ RETURN 4 


5504 FIP!(0!)=30! 4 

\ FIP!(XXX!)=0! FOR XXX!=1! TO 30! 4 

\ FIP!(1!)=6! 4 

\ FIP!(2!)=8! 4 

\ FIP!(3%)= JBNUM! 4 

\ FIP!(27!)=0! 4 

\ FIP!(28!)=255! 4 

\ CHANGE FIP! TO KILL.JOB* 4 

\ KILL.JOB$=SYS(KILL.JOB$) UNLESS JBNUM!=USER.JOB! 4 

I IF WE ARE KILLING OURSELVES, WE MUST ALLOW 4 

! US TO DELETE CHANNEL INFO BEFORE WE DIE 4 

5506 DUMMY!rFNLOCK.COMMON! 4 

\ TALK.CHAN!(JBNUM!)=0! 4 

\ CB.PROG!(JBNUM!)=0! 4 

\ CB.PRCJ!(JBNUM!)=0! 4 

\ JOB.FLAGS!(JBNUM!)=0! 4 

\ CB.PASS$(JBNUM!)="" 4 

\ HNDL$=CVT$$(HANDLE$(JBNUM!),128!) 4 

\ HANDLE$(JBNUM!)="" 4 

\ FOR YX!=0! TO 40! 4 

\ DUMMY2!=FNGET.CHAN!(YX!) 4 

\ OTHER.USER!=FNOTHER.POSITION!(JBNUM*) 4 

\ ST!(OTHER.USER*)=0* UNLESS OTHER.USER!=-1! 4 

\ DUMMY2*=FNPUT.CHAN!(YX!) UNLESS OTHER.USER!=-1* 4 

\ NEXT YX! 4 

\ CMD$="**User #"+NUM1$(JBNUM!)♦" ("+HNDL$+")"4- 4 

" is leaving CB (Involuntarily)**" 4 

\ DUMMY!rFNUNLOCK.COMMON! 4 

\ DUMMY!=FNBROADCAST!(0!,CMD$,-1!) 4 


7000 4 

I **KB TOGGLE COMMAND** 4 

I * 

DUMMY!rFNLOCK.COMMON! 4 

\ JOB.FLAGS!(USER.JOB!)=JOB.FLAGS!(USER.JOB!) XOR KB.OPT! 4 

\ DUMMY!rFNUNLOCK.COMMON! 4 

\ IF (JOB.FLAGS!(USER.JOB!) AND KB.OPT!) THEN 4 

PRINT "**KB numbers will be printed**" 4 

ELSE 4 

PRINT "**KB numbers will not be printed**" 4 

7010 RETURN 4 

7500 4 

I **SPY TOGGLE COMMAND** 4 

| ALLOW A PRIV USER TO \<ATCH RESTRICTED MESSAGES 4 

I 4 

\ GOTO 8950 IF USER.PROJ!<>1! 4 

\ DUMMY!=FNLOCK.COMMON! 4 

\ JOB.FLAGS!(USER.JOB!)=JOB.FLAGS!(USER.JOB!) XOR 4 

SPY.OPT* 4 

\ DUMMY!rFNUNLOCK.COMMON! 4 

\ IF (JOB.FLAGS!(USER.JOB!) AND SPY.OPT!) THEN 4 

PRINT "**SPY mode is enabled**" 4 

ELSE 4 

PRINT "**SPY mode is disabled**" 4 

7510 RETURN 4 




5550 PRINT "**Job #";JBNUM!;" has been CLEARed**" 4 

\ KILL.JOB$rSYS(KILL.JOB$) IF JBNUM!=USER.JOB! 4 

\ RETURN 4 

5720 PRINT "**??Illegal Job number??**";CHR$(7!) 4 

\ RETURN 4 

5730 PRINT "**??Job specified not in CB??**";CHR$(7!) 4 

\ RETURN 4 


8000 4 

I **PPN toggle COMMAND** 4 

! 4 

DUMMY!=FNLOCK.COMMON! 4 

\ JOB.FLAGS!(USER.JOB!)rJOB.FLAGS!(USER.JOB!) 4 

XOR PPN.OPT! 4 

\ DUMMY!rFNUNLOCK.COMMON! 4 

\ IF (JOB.FLAGS!(USER.JOB!) AND PPN.OPT!) THEN 4 

PRINT "**PPN numbers will be printed**" 4 

ELSE 4 

PRINT "**PPN numbers will not be printed**" 4 


6000 4 

! **EXIT COMMAND (~Z OR “C TOO)** 4 

I **ANY FATAL OR WEIRD ERRORS COME HERE TOO** 4 

I A FLAG •RUNNING.IN.ERROR! 1 WILL BE SET ON THE LATTER 4 

I 4 

DUMMY!rFNLOCK.COMMON! 4 

\ TALK.CHAN!(USER.JOB!)=0! 4 

\ CB.PROG!(USER.JOB!)=0! 4 

\ CB.PROJ!(USER.JOB!)r0! 4 

\ JOB.FLAGS!(USER.JOB!)=0! 4 

\ CB.PASS$(USER.JOB!)="" 4 

\ HNDL$=CVT$$(HANDLE$(USER.JOB!),128!) 4 

\ HANDLE$(USER.JOB!)r"" 4 

\ FOR YX!=0! TO 40! 4 

\ DUMMY2!rFNGET.CHAN!(YX!) 4 

\ DUMMY!rFNUSER.POSITION! 4 

\ ST!(DUMMY!)=0! UNLESS DUMMY!=-1! 4 

\ DUMMY2! = FNPUT.CHAN!(YX!) UNLESS DUMMY!=-1! 4 

\ NEXT YX! 4 

\ TYP$r"leaving" 4 

\ TYP$="ABORTING from" IF RUNNING.IN.ERROR! 4 

\ CMD$="**User #"+NUM1$(USFR.JOB!)+" ("+HNDL$+")"+ 4 

" is "♦TYP$+" CB**" 4 

\ DUMMY! rFNUNLOCK. COMMON! 4 

\ DUMMY!rFNBROADCAST!(0!,CMD$,-1!) 4 


8010 RETURN 4 


8500 4 

I **UPPER CASE toggle COMMAND** 4 

! 4 

DUMMY!rFNLOCK.COMMON! 4 

\ JOB.FLAGS!(USER.JOB!)=JOB.FLAGS!(USER.JOB!) 4 

XOR UPPER.OPT! 4 

\ DUMMY!rFNUNLOCK.COMMON! 4 

\ IF (JOB.FLAGS!(USER.JOB!) AND UPPER.OPT!) THEN 4 

PRINT "**UPPER CASE only will be printed**" 4 

ELSE 4 

PRINT "**UPPER/LOWER case be printed**" 4 


8510 RETURN 4 


8900 4 

! **ALL (BROADCAST) COMMAND** 4 

I 4 

GOTO 8950 IF USFR.PR0J!<>1! IPRIV FUNCTION 4 

\ GOTO 8940 IF STRT.ARGJrO! 4 

\ MSG$=RIGHT(CMD$,STRT.ARG!+1!) 4 

\ DUMMY!rFNBROADCAST!(0!,MSG$,2!) (SEND IT 4 

\ RETURN 4 


\ GOTO 32700 


4 

4 8940 PRINT "**??Nothing to send??**";CHR$(7!) 


4 
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\ RETURN 4 

8950 PRINT "**??Privileged operation??**";CHR$(7?) 4 

\ RETURN 4 

| sssssssss -ssssssssrsrrsssssrsssssssrssssssssssssssssssssssrssssssss 4 


9000 4 

I **JOB toggle COMMAND** 4 

I 4 

DUMMY?=FNLOCK.COMMON? 4 

\ JOB.FLAGS?(USER.JOB?)=JOB.FLAGS?(USER.JOB?) 4 

XOR JOB.OPT? 4 

\ DUMMY?=FNUNLOCK.COMMON? 4 

\ IF (JOB.FLAGS?(USER.JOB?) AND JOB.OPT?) THEN A 

PRINT "**JOB numbers will be printed**" 4 

ELSE 4 

PRINT "**JOB numbers will not be printed**" 4 


9010 RETURN 4 

1=================================================================== 4 


9500 4 

| **RESTRICT (PASSWORD) COMMAND** 4 

I 4 

GOTO 9700 IF STRT.ARG? = 0? I TURN OFF PSWRD 4 

\ PS$sCVT$$(RIGHT(CMD|,STRT.ARG?+1?),-1?) 4 

\ GOTO 9710 IF LEN(PS$)>6? 4 

\ DUMMY?=FNLOCK.COMMON? 4 

\ CB.PASS$(USER.JOB?)=PS$ 4 

\ JOB.FLAGS?(USER.JOB?)=JOB.FLAGS?(USER.JOB?) 4 

OR SECRET.OPT? 4 

\ DUMMY?=FNUNLOCK.COMMON? 4 

\ PRINT "**Your Password has been set**" 4 

\ RETURN 4 

9700 DUMMY?=FNLOCK.COMMON? 4 

\ CB.PASS$(USER.JOB?)="" 4 

\ BITS?= -1? XOR SECRET.OPT? IFORCE ONLY 1 BIT OFF 4 

\ JOB.FLAGS?(USER.JOB?)=JOB.FLAGS?(USER.JOB?) AND BITS? 4 

\ DUPKY?=FNUNLOCK.COMMON? 4 

\ PRINT "**Password has been turned off**" 4 

\ RETURN 4 

9710 PRINT "**??Password too long?7**";CHR$(7?) 4 

\ RETURN 4 




DEC 


DEC 300 
BAUD PRINTERS 

EIA w/Forms $ 875 

850 


LA34-AA 

LA34-RA EIA. Receive Only 

LA38-GA ft- . KP . s . T, . ac .'»:. 1,000 

LA38-HA EIA. KP. Tractor & Stand . 1,100 

LA38-AA EIA. KP. Forms & Tractor . 1,150 

CASH PRICES • IN STOCK 
IMMEDIATE DELIVERY 

— CALL SONJA OR LAURIE AT 
-(614) 889-0810 

SCHERER’S 

MINI COMPUTER MART 

6145 Dolan Place Dublin, Ohio 43017 


BRAND NEW*WARRANTY*ATD 


CIRCLE 106 ON READER CARD 


9800 4 

I **DFTACH (PRIV) COMMAND** 4 

I 4 

GOTO 8950 IF USER.PROJ?<>1? 4 

\ PRINT 4 

\ PRINT "**Detaching from terminal**" 4 

\ PRINT A 

\ PRINT A 

\ DETACH$=SYS(CHR$(6?)+CHR$(7?)) 4 

\ RETURN A 

9900 4 

! **TIME FUNCTION** 4 

I A 

PRINT "••"♦DATE$(0?)+" at "♦TIME$(0?)♦"••■ A 

\ PRINT 4 

\ RFTURN A 

10000 A 

I ***USER DEFINED FUNCTIONS*** A 

DEF FNlloCK.COMMON? 4 

! LOCK THE COMMON AREA SO OTHER USERS CANNOT A 

I UPDATE WHILE WE ARE A 

\ PRINT "LOCK.COMMON?" IF DEBUG? A 

10001 SLEEP 1? IF COMMON. IN.USE?OUSER. JOB? A 

AND COMMON.IN.USE?<>0? A 

\ GOTO 10001 IF COMMON.IN.USE?OUSER.JOB? A 

AND COMMON.IN.USE? < >0? 4 

\ COMMON.IN.USE?=USER.JOB? A 

UNLESS COMMON. IN.USE?OUSER. JOB? A 

AND COMMON.IN.USE?<>0? A 

\ GOTO 10001 IF COMMON.IN.USE?OUSER.JOB? A 

AND COMMON.IN.USE?<>0? A 

\ PRINT "LOCK.COMMON? FINISHED" IF DEBUG? A 

\ FNEND 4 

4 

10003 def fnunlock.common? a 

! UNLOCK THE COMMON AREA, WHEN WE ARE FINISHED A 

\ PRINT "UNLOCK.COMMON?" IF DEBUG? 4 

\ COMMON.IN.USE?=0? IF COMMON.IN.USE?=USER.JOB? A 

\ FNEND 4 

4 

10004 DEF FNOPEN.POSITION? A 

! FIND OPEN POSITION IN ST?() ARRAY FOR THIS 4 

I JOB 4 

\ PRINT "FNOPEN.POSITION?" IF DEBUG? 4 

\ FOR OPNX?=1? TO 63? A 

\ IF ST?(0PNX?)=0? THEN 4 

OPEN.POS? =OPNX? A 

\ GOTO 10010 A 


10005 NEXT OPNX? 4 

\ PRINT "77FNOPEN.POSITION - NO OPENINGS" 4 

\ RUNNING.IN.ERROR? = -1? 4 

\ GOTO 6000 ITRY TO /EXIT 4 

10010 FNOPEN.POSITION? = OPEN.POS? A 

\ PRINT "OPEN.POSITION FOUND = ";OPEN.POS? IF DEBUG? 4 

\ FNEND 4 

10020 DEF FNUSER.POSITION? 4 

I FIND A USER JOB SLOT IN THE ST?() ARRAY 4 

I IF NOT FOUND, RETURNS -1 A 

\ PRINT "FNUSER.POSITION?" IF DEBUG? 4 

\ FOR USRX?=1? TO 63? 4 

\ IF ST?(USRX?)=USER.JOB? THEN 4 

USER.POS?=USRX? 4 

\ GOTO 10040 A 

10030 NEXT USRX? 4 

\ USER.POS?=-1? IUSER NOT FOUND-LEGAL 4 

10040 FNUSER.POSITION? = USER.POS? A 

\ PRINT "FNPOSITION - FOUND POSITION ";USER.POS? A 

IF DEBUG? 4 

\ FNEND 4 


!====== 

10042 

DEF FNOTHER.POSITION?(ARC?) 

4 

! 

FIND ALTERNATE USERS JOB SLOT IN ST?() ARRAY 

4 

1 

RETURNS -1 IF NOT FOUND 

4 

\ 

PRINT "FNOTHER.POSITION?",ARG? IF DEBUG? 

4 

\ 

FOR OUSRX?=1? TO 63? 

4 

\ 

IF ST?(OUSRX?)=ARG? THEN 

4 


OTHER.POS?=OUSRX? 

4 

\ 

GOTO 10046 

4 

10044 

NEXT OUSRX? 

4 

\ 

OTHER.POS?=-1? IUSER NOT FOUND-LEGAL 

4 

10046 

FNOTHER.POSITION? = OTHER.POS? 

4 

\ 

PRINT "FNOTHERPOSITION - FOUND POSITION ";OTHER.POS? 

4 


IF DEBUG? 

4 

\ 

1 . 

FNEND 

4 

10050 

DEF FNCHAN$(ARG?) 

4 

1 

PRINT A NUMBER (USUALLY CHANNEL #) LEADING 

4 

1 

ZERO FILLED 

4 

\ 

PRINT "FNCHAN?",ARC? IF DEBUG? 

4 

\ 

CHHN$=NUM1$(ARG?) 

4 

\ 

CHHN$="0"+CHHN$ IF ARG?<10? 

4 

\ 

FNCHAN$=CHHN$ 

4 

\ 

FNEND 

4 

10100 

DEF FNBROADCAST?(ARG1?,ARG1 $,BFLAG?) 

4 

1 

BROADCAST A MESSAGE TO ALL USERS ON THE 

4 

1 

CHANNEL SPECIFIED BY ARG1?, IF FLAG? IS SET, 

4 
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! THEN DO NOT APPEND A HEADER & 

I BFLAG* VALUES: A 

I 0 =SEND WITH HEADER A 

! -1=SEND NO HEADER (SYS MSG) A 

! 1 =BYPASS PASSWRD CHECKS A 

! 2 =ALL CMD (/OPR, NOT /Cnn) A 

I A 

\ PRINT "FNBROADCAST* ARG1 *, ARGU, FLAG* IF DEBUG* A 

\ HLD.ARG*=ARG1* A 

\ KB*=FNKB.NUMBER*(USER.JOB*) A 

\ KB*=FIP2*(K*) A 

\ JOB*=NUM1*(USER.JOB*) 4 

\ PPN*="["+NUM1*(USER.PROJ*)♦","+NUM1$(USER.PROG*)■*■"]" 4 

\ UFLAGJ=JOB.FLAGS*(USER.JOB*) 4 

\ PS>=((UFLAG* AND SECRET.OPT*) <> 0*) 4 

\ PS*=0* IF (BFLAGJ=1*) OR (BFLAG*=2*) 4 

IUSER DOING BROADCAST 4 

10110 DUMMY2*=FNGET.CHAN*(ARG1*) 4 

\ FOR CXX*=1* TO 63* 4 

\ GOTO 10200 IF ST*(CXX*)=0* !NO JOB SLOT 4 

\ PRINT "LOOKUP OF JOB ";CXX* IF DEBUG* 4 

\ KBS$=FNKB.NUMBER$(ST*(CXX*)) 4 

\ PRINT "KB OF ACTIVE CB JOB ";FIP2*(4*) 4 

IF DEBUG* 4 

\ GOTO 10200 IF KBN*="ILL:" 4 

\ KB.SND*=FIP2*(4*) 4 

\ GOTO 10200 IF KB.SND*=KB* AND DEBUG*=0* 4 

\ GOTO 10200 IF KB.SND*<0* 4 

OR KB.SND*>127* 4 

IDETACHED IN CB?? - NO SEND 4 

\ FLAGS* = JOB.FLAGS*(ST*(CXX*)) IGET FLAG WORD 4 

\ ARG1*=HLD.ARG* 4 

\ ARG1*=CVT**(ARG1*,32*) IF FLAGS* AND 4 

UPPER.OPT* 4 

\ GOTO 10200 IF ((FLAGS* AND SECRET.OPT*)=0*) AND 4 

((FLAGS* AND SPY.OPT*)=0*) AND 4 

(PSJOO*) ISEND RESTR, RCV, NO 4 

\ GOTO 10200 IF ((FLAGS* AND SECRET.OPT*)<>0*) 4 

AND (PS*<>0*) 4 

AND ((FLAGS* AND SPY .OPT*) 016*) 4 

AND (CB.PASS*(USER.JOB*) <> 4 

CB.PASS$(ST*(CXX*))) 4 

\ PRINT "BROADCAST - PSWRDS »•; 4 

CB.PASS*(USER.JOB*);"', •; 4 

"'";CB.PASS*(ST*(CXX*));"'", 4 

"FLAGS SEND/RCV ";UFLAG*,FLAGS* 4 

IF DEBUG* 4 

\ SND.HDR*="[[" 4 

\ SND.HDR*=SND.HDR*+KB* IF FLAGS* AND KB.OPT* 4 

\ SND.HDR$=SNP.HDR*+PPN* IF FLAGS* AND PPN.OPT* A 

\ SND.HDR$=SND.FDR$«-"("+JOB$-*-")" 4 

IF FLAGS* AND JOB.OPT* 4 

\ BCST.TYPE*="C" ICHANNEL 4 

\ BCST.TYPE$="B" IF BFLAG*=1* IBROADCAST 4 

\ BCST. CHNL$="/ "+BCST. TYPE*-*-FNCHAN*( ARG1 *) 4 

\ BCST.CHNL*="/OPR" IF RFLAG*=2* !ALL COMMAND 4 

\ SND.HDR$=SND.HDR*+ 4 

CVT**(HANDLE*(USEP.J0B*),128*)+ 4 

BCST.CHNL**"]] " 4 

\ SND.HDR$=" " IF (BFLAG*= -1*) 4 

\ SND.HDR*="#DBG#"+SND.HDR* IF DEBUGJOO* 4 

AND KP.SND*=KB* 4 

\ SND.HDR*="SECRET"+SND.FDR* IF PS* 4 

\ SND.HDR*="+SPY+"+SNP.HDR* IF (PS*<X)*) 4 

AND ((FLAGS* AMD SPY.OPT*)<>0*) 4 

\ MSG*=CHR*(10*)+CHR*(13*)+SND.HDR*+ARG1*+ 4 

CHR*(10*)+CHR*(13*) 4 

\ SEND.MSG*=SYS(CHR$(6*)+CHR*(-5*)+ 4 

CHR*(KB.SND*)+MSG*) 4 

10200 NEXT CXX* 4 

10210 FNEND 4 

I:si:::::::tsrrrsssssssssii*siss!is8ssssss**ssssgs**s*sM**M!*8*«*t A 

10250 DEF FNGFT.CHANXARG*) A 

! CHANGE CHANNEL*(ARG*) TO ST* (IN MACRO) 4 

! 4 

\ CALL ST2NM BY REF (CHANNEL*(ARG*), ST*()) 4 

\ FNEND 4 

10260 DEF FNPUT.CHAN*(ARG*) 4 


CHANGE ST* TO CHANNEL*(ARG*) (IN MACRO) 


CSTRG*= CHANNELS ARG*) 

CALL NM2ST BY REF (CSTRG*, ST*()) 
CHANNEL*(ARG*)= CSTRG* 

FNEND 


IMAKE NON-LOCAL 
ITO CALL 
I PUT BACK HERE 


::::::::::::: 


10300 DEF FNKB.NUMBER*(JBNOJ) 

! FORMAT A KB NUMBER AS TO DET OR PSEUDO OR 

I REGULAR, IF NO KB ON JBNO* SPECIFIED, 

I RETURNS 'ILL:' 

\ KBN*="ILL:" 

\ CHANGE SYS(CHR*(6*)+CHR*(26*)+CHR*(JBNO*)+CHR*(0*)) 

TO FIP2* 

\ KBN*=FIP2*(H*) 

\ KBN*="Det" 

\ GOTO 10350 IF KBN* <0* OR KBN*>127* IDET JOB 

\ GOTO 10330 IF FIP2*(5>)<>0* !PSEUDO KB 

\ KBN*=NUM1*(KBN*) 

\ KBN*="KB"+LEFT("000",3*-LEN(KBN*))^KBN*+":" 

\ GOTO 10350 

10330 KBN*="P"+NUM1*(KBNJ-1*)+"J"«-FNCHAN*((FIP2*(5*)-1*)/2*) 

10350 FNKB.NUMBER*=KBN * 

\ FNEND 


19000 

I ••ERRORS SECTION** 

I 

DUMMY*=SYS(CHR*(0*)) 

\ RESUME 20000 IF ERR=28* 

\ RESUME 6000 IF ERL=500 AND ERR=11 

\ RESUME U600 IF ERL=HOOO 

\ RESUME 10350 IF ERL=10300 

\ RESUME 2700 IF ERL=2010 

\ RESUME 3700 IF ERL=3050 

\ RESUME 2810 IF ERL=2800 

\ RESUME 3900 IF ERL=3805 

\ RESUME 5720 IF ERL=5500 

\ RESUME 5506 IF ERL=550l| 

\ RESUME 6600 IF (ERL=6500) OR (ERL=6550) 

\ RESUME 32700 IF ERL=200 AND ERR=11 

19900 PRINT "?CB - FATAL ERROR ~";ERT*(ERR);" AT ";ERL 

\ RUNNING.IN.ERROR* = -1* 

\ RESUME 6000 ITRY TO /EXIT 


20000 ICTRL/C TJRAP REENABLE BEFORE EXIT 

DUMMY*=SYS(CHR*( 6*) «-CHR*(-7*)) 

\ GOTO 6000 IEXIT 

30000 

! •••CCL ENTRY POINT*** 

I 

CMD*=SYS(CHR*(7)) 

\ I*=INSTR(1*,CMD*,"/") 

\ IF I* THEN 

CMD*=CVT**(RIGHT(CMD*,I*+1*),l6*+32*«-6H*) 

\ CCL.ENTRY*=-1* 

\ HNDL.ENTERED*=0* 

\ GOTO 10 

30010 I*=INSTR(1*,CMD*," ") 

\ GOTO 10 IF I*=0* 

\ HNDL*=RIGHT(CMD*,I*+1*) 

\ CCL.ENTRY*=-1* 

\ HNDL.ENTERED*=-1 * 

\ GOTO 10 

32000 

! •••LOGIN ENTRY POINT** 1 

I 

LOGGED.OUT*=-1* ILETS CHECK THIS LATER 

\ GOTO 30000 I TREAT JUST LIKE CCL 

32700 !CLOSE-UP PROCESSING 

32767 END 
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Word 

Processing * 

VAX/VMS, RSTS/E, 
RSX-11M 

* Word-11 by 

Data Processing Design, Inc. 

181 W. Orangethorp Avenue 
Placentia, CA 92670 

_ 


On Track Systems Provides: 




Sales 

Service 

Installation 

Demonstrations 

Training 

Consulting 


At your 
convenience! 

At your 
office! 


On Track 


P.O. Box 245 
Ambler, PA 19002-0245 
(215) 542-7133 
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TRIOARIT 


The system that offers 
Productivity, Accuracy 


plus More. 




PRODUCTIVITY 

TRIDAKIT is a set of 
application development 
modules that automatically 
generates up to 90% of pro¬ 
gram code four times faster 
than conventional program¬ 
ming methods. Programmers 
can instruct TRIDAKIT to 
produce on-line applications 
with simple easy-to-use 
commands. 

Incorporated in TRIDAKIT is 
a powerful file management 
system which can open and 
maintain 255 files simulta¬ 
neously. TRIDAKIT based 
applications allow for 
caching of files, reduced use 
of the File Processor (FIP), 
and a reduction in the use 
of small buffers. 


ACCURACY 

Included with TRIDAKIT are 
documentation, program¬ 
ming, operations and project 
management modules. 
Application program code 
errors are practically elimi¬ 
nated. 

Detailed documentation is 
automatically produced as a 
by-product of the application 
definition. Changing the 
documentation changes the 
program code. With 
TRIDAKIT, each member of 
the project team always has 
the latest, most up-to-date 
version of the documenta¬ 
tion. 


PLUSUORT 

Security is strictly enforced 
with TRIDAKIT. Each user of 
TRIDAKIT must be defined 
before an application can be 
accessed. 

TRIDAKIT is responsive to 
special problems that are 
commonly forgotten in appli¬ 
cations such as audit trails, 
I/O tracing and “point-of- 
failure” data base recovery. 
These are automatically in¬ 
cluded in TRIDAKIT based 
applications. 

IHirORlUATIOIV 

If you would like more infor¬ 
mation on how you can 
increase application devel¬ 
opment productivity with 
TRIDAKIT, phone or write 
today. 


RSTS/E is a registered trademark of Digital 
Equipment Corporation. 



Tridacor Systems, Inc . 

820 FREEWAY DRIVE NORTH • COLUMBUS. OHIO 43229 • (614) 431-0805 
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EDITORS’ NOTE 

David Spencer of Infinity Software 
has written several RSTS Real-Time 
Games. When used "stand alone” they 
offer realistic performance. Here are two 
differing opinions on how they are: 

RSTS GAMES: 

ONE MAN S 
(BOY’S) 

OPINION 

By Bill Marbach 

David Spencer and Atari have two things in common. 
They both make electronic games, and they both work hard 
on them. However, only David Spencer's games are challeng¬ 
ing enough to make you want to come back again and 
again. 

My favorite David Spencer game is called SUBS. This 
game takes extraordinary hand eye coordination and a little 
bit of luck. The object is to hit the enemy before he hits you 
by using only radar and keen eyesight. 

In INVADE your objective is to stop the little alien at¬ 
tackers from landing or hitting you. The tempo of this game 
is very slow making this game the easiest of them all. 

The last game is PACKER. We all know it as Pac-Man. 
However, this game is just as good as Pac-Man. This game 
even has an intermission where you can watch a little show. 
This game is very much like the real Pac-Man, and could 
show up ATARI any day. 

When you compare the two you see ATARI has better 
color, sound, action, and graphics. However, David Spencer’s 
games take more skill than Atari games which are usually 
easy. So David Spencer keep up the good work. 

Overall Grade 1-10 
David Spencer — 9.3 
Atari — 8.5 
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NO CAUSE 
FOR 

EXCITEMENT 

By Joel Schwartz, M.D. 


The other day I got an excited call from our beloved 
editor telling me there were new games on the computer. 
The urgency in his voice caused me to have only two help¬ 
ings of dessert instead of the usual three and I rushed right 
over to see them. 

The first one I played was called PACKER. This is a real¬ 
time RSTS/E game for VT100-type terminals. The instruc¬ 
tions tell you that until recently you have been employed as 
a packer in a robot manufacturing plant. However, there 
was an accident which caused robots to rebel and it is your 
mission, if you decide to take it, to deactivate the robots 
loose in the plant or be killed. My advice is to pass up the 
mission. I wish I had. This game is really a poor copy of the 
popular arcade game PAC-MAN. I really don't know if 
graphics can be done with the finesse that they are done on 
the smaller home computers, but being chased by an A and 
eating a @ so I can then chase and eat a A,B,C or D on a 
black and white screen with no sound effects just doesn’t do 
very much for me. It's like driving in a Mercedes and then 
trying to get excited over driving in a Honda. 

The second game I played was INVADE. You guessed it, 
this game was the main frames answer to the arcade game 
SPACE INVADERS. The object of the game for those of you 
who have been in hibernation for three years is to destroy 
the incoming wave of alien invaders without being killed by 
the bombs they drop. My objections were the same for this 
game. No graphics, no sound, no color, no fun. 

The final game I played was called SUBS. This was billed 
as a real-time warfare game for two players on individual 
terminals. The two users compete against each other by at¬ 
tempting to destroy the other's submarine. Although the 
graphics were also poor on this game, it did have some 
unique features which made it worth playing. The monitor 
was divided into a bigger screen and a smaller one. The lat¬ 
ter was a sonar screen used to locate the general vicinity of 
your opponent while the former was used to maneuver your 
sub close enough to your enemy to destroy him with your 
torpedoes. I liked the idea of a two terminal interactive 
game with a human opponent instead of pitting your skill 
against the computer. 

On my way out Carl asked me how I liked them. I didn't 
want to hurt his feelings (he is extremely sensitive) so I told 
him they were great, and it was only because of the lateness 
of the hour (it was about eight-thirty) that I had to leave. I 
hope he doesn’t read my article! 

f 
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Dreaming of 

Electronic Mail 

Product Name: Dreams Version 5.0 

Since its first sale in 1979 Dreams has grown in capability 
and user acceptance. It is now in use on over 40 RSTS/E 
systems around the country. 

Special Features: 

• DECnet compatibility—message transmission to distant 
nodes. Includes message queuing to unavailable nodes. 

• Invoke your favorite style of editing (EDT, DECword, 
WORD-11, TECO, etc.) with a smooth transition to and 
from the editor. 

• Flexible method for accessing and maintaining multiple 
mail files. 

• Subjects for mail files as well as individual messages. 

• Retract unread messages. 

• Recover your last deleted message. 

• Specify times as well as dates in relative or absolute 
form to control message appearance or expiration or to 
narrow selection criteria. 

• Full compatibility with Batch. This opens up a world of 
possibilities for keeping abreast of unattended opera¬ 
tions and for implementation of a repetitive reminder 
system based on day of the week or other longer inter¬ 
vals. 

• System manager may assign defaults for accounts, proj¬ 
ects, and the entire system including the assignment of 
certain privileges. 

The Dreams package consists of over 40,000 lines of 
source code in more than 70 modules plus significant 
documentation both as documents and as on-line help. 
CSPCOM or BASIC-Plus-2 builds these sources into only 
5 Dreams tasks: TELL, MAIL, WHO, SMASH, and MAN¬ 
AGE (plus POSTMN for the DECnet version). Computers 
with sufficient memory may use the customized resident 
library and resident run-time system. 

A VAX version will be available later. 

lypical Electronic Mail Features are also included in 
Dreams: 

• Send to names, nicknames, or groups. 

• Scan, reply, forward, or store for later appearance. 

• New, old, priority, or suppressed messages for each 
mail file. 

• Automatic routing of messages. 

• Many other convenient features. 

Ordering information: 

Available on 9 track 800 or 1600 BPI tape. Multiple CPU 
discount schedule: 

First License 

Dreams/5 $3000.00 

DECnet modules $3000.00 

Second and Third License 40% Discount 

Fourth and Fifth License 50% Discount 

Sixth and up 70% Discount 

Educational Institutions Additional 50% 

off the total 

Maintenance and new releases: Annual fee of 12% of cur¬ 
rent list price after the first year. 


For more information contact: 

Tom Burtnett 
DCXX Software Services 
Dickinson College 
Computer Center 
Carlisle, PA 17013 
717-245-1513 


RSTS/E, VAX, DECnet, and DECword are trademarks of Digital Equip¬ 
ment Corporation. 

WORD-11 is a trademark of Data Processing Design, Inc. 


CIRCLE 130 ON READER CARD 






page 30 


August 1982 


TYPE 

By W. Franklin Mitchell, Jr., Computer Operations Supervisor 
Erskine College. Due West, South Carolina 29639 


The addition of TYPE to Erskine's RSTS system has 
made the task of running a small college on a small com¬ 
puter somewhat better. TYPE is a program system that 
transfers information from a disk file to a user's terminal 
using a very small amount of main memory. All TYPErs 
share a IK (words) run-time system and each TYPErs job 
size is 1K. TYPE uses a 1,024 byte disk buffer. 

A very large portion of the data processing at Erskine 
produces some kind of printable disk file such as reports, 
labels, program listings, etc. TYPE was created to lessen the 
impact of many users moving the contents of these files to 
printing terminals. TYPE also allows users to do new things. 

In the beginning, all users used PIP to print reports on 
terminals such as LA-120s and LA-36s. Ten simultaneous 
file dumpers using PIP occupy at least 164K words of main 
memory. The first version of TYPE was written in BASIC- 
PLUS. Ten TYPErs in BASIC-PLUS occupy 20K (not counting 
the always present BASIC run-time system). As options and 
enhancements were added, the size of the BASIC-PLUS ver¬ 
sion of TYPE began to grow. Finally, TYPE was put into 
assembly language and worked into its own run-time 
system. Ten TYPErs now occupy only 11K of main memory! 

TYPE User’s Guide 

The following TYPE help message shows the features 
built into TYPE: 

File specs may contain wildcards. Several files may be 
listed together if they are separated by commas. Any 
switches apply to all files listed together. Switches must go 
on the end. Legal switches are 

/F output form feed 1st 
/R no "Ready" once done 
/x x copies, where x is a digit 2-9 
/N file name is printed 1st 
/Q query mode 
/B binary mode 

Multiple switches may be used (e.g. /F/R) 

The /F switch allows a user on a printing terminal with 
forms control to use one page for log in, listing directories, 
etc. and to form feed to the top of the next form for file out¬ 
put. 

The /R switch suppresses BASIC-PLUS's “Ready" once 
TYPE is done. 


TYPE will print x copies of all files specified if it finds a 
slash followed by a single digit 2 to 9. For example, 

TY JUNK.LST/3 -prints 3 copies of JUNK.LST 
TY A.LST.B.LST/2 -prints 2 copies of A.LST followed by 2 

copies of B.LST 

* 

The /N switch prefaces each copy of each file printed 
with the name of the file. 

The /Q query mode is like the /Q or /IN switch of better 
known file transfer programs. 

The /B switch makes TYPE send the data in a file to a 
user's terminal in binary mode. This is useful when you 
want tab characters to remain tab characters (not groups of 
spaces), ESCapes to stay ESCapes (not dollar signs), etc. /B 
automatically sets /R. This mode can be used to send text 
that contains LA-120 "change the character size" escape se- 
quencies. 

The following examples demonstrate some happenings 
that are perhaps strange but expected: 

TY C.LST.C.LST/9 -prints 18 copies of C.LST 

TY Z.TXT/3/5 -prints 5 copies of Z.TXT, earlier /3 is 

ignored 

TY A.LST/2.B.LST/3 -prints 3 copies of A.LST only, “/" 
terminates file spec scan. Switches 
must be last! 

If WORK.BAC has a protection code with bit 64 set (run 
only), 

TY WORK.BAC -prints nothing. 

If RIDICU.LAS has a file size greater than 65,535 blocks, 
TY RIDICU.LAS -will not work properly. No attempt 

has been made to treat this as an er¬ 
ror. 

TYPE installation 

Installing TYPE on your system is very simple. A con¬ 
tiguous copy of TYPE.RTS must be placed in account [0,1], 
two other files are created in the TYPE account (the TYPE 
account can be any account on any disk), and the ADD TYPE 
and add CCL commands must be added to both your runn¬ 
ing system and to your start up files. (The CCL can be 
something other than TYPE if desired.) 

* 
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WRITING A 
RUN-TIME SYSTEM 

(or, Happiness in the HISEG) 

By Bob 'Macro Man' Meyer 


Now that you've been reading this column for many 
months, and I know you've been keying in & testing all the 
neat little programs I’ve been publishing, it's time for a 
treat. This issue, not only are we going to write some more 
Macro code, we're gonna write a run-time system. A sample 
rts is included with this article; if you key it in as printed and 
assemble as instructed, it should work on your system. Keep 
in mind that its sole purpose in life is to demonstrate how to 
make an rts from scratch, and therefore has very little 
market value (in other words, if your caught playing with 
this thing on the job, you might not have one...). First I'll 
attempt to describe what a run-time system is, then I'll ex¬ 
plain how to use OSCAR.RTS, the program in the example. 

What is a Run-Time System? 

A run-time system is basically a Macro program that 
has been linked to run at the high end of the user's address 
space (thus the term HISEG). If the rts is written with re¬ 
entrance in mind, it can be made read-only (the monitor & 
memory managment hardware will enforce this) and shared 
by any number of users. This proves to be very economical 
on small systems where memory is limited; only one copy of 
a program need be resident for any number of users to ac¬ 
cess that program. As you're probably aware, that's how 
Basic-Plus is implemented; a read-only sharable interpreter 
& keyboard monitor (among other things) that can be used 
by many folks for many different applications, but only ties 
up 16K of memory at most. The low segment, or LOSEG, is 
the actual user job image: variables, instructions, buffer 
space, (push-pop code in the case of Basic-Plus) or in some 
cases, just raw data, depending on the run-time system. 

The Psudeo-Vector region. 

This 'vector' area is actually a block of words at the very 
end of the user job image. Each word contains an address of 
an entry point into the run-time system. The monitor ac¬ 
cesses the psudeo-vectors so that the run-time system can 
be given control in the case of certain events; some of these 
events are shown below with their respective PV entry point 
names (see the code at the end of the example program for 
the PV layout (or refer to COMMON.MAC)). 


Event 

PV entry point 

User runs a program NAMEd to this rts. 

P.RUN 

User Switches to this rts. 

P.NEW 

User types IC. 

Some code accesses an odd memory address (with 

P.CC 

a WORD instruction). 

Some user types 2 t C's before we get time to ser¬ 

P.BAD 

vice the first one. 

P.2CC 


UNITRONIX 

means 

-^ 


□ 


' N ® re n' 

\nve" 




c* 


TERMINALS 
MODEMS 
PDP 11/03, 11/23 + 11/44 
SYSTEMS 
With RL01S& RL02s 
or Winchester Drives 

INTERFACES 

FLOPPYS 

Std. & Custom Software 

SAVINGS SPOTLIGHT 
♦♦FREE** 

DEC Personal Computer 
with purchase of a computer system 


CALL FOR LATEST PRICES 

( 201 ) 231-9400 

Sale cfr Lease Avail. 

o UNITRONIX 

CORPORATION 

197 Meister Ave. • Somerville. NJ 08876 • TELEX: 833184 
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As you can see, the vector region has many uses, and 
provides the monitor with a path into the run-time system 
for a number of situations. If the coding is done carefully, 
the rts can become VERY secure, as even the wise-guy typ¬ 
ing several control-C's in succession can't ever get past the 
P.2CC entry point until we decide what to do with him. The 
psudeo-vector region is the primary difference between a 
run-time system and an resident library; a reslib has no 
psudeo-vectors. 


Assembling & Task building the example RTS. 

Assembling the demo rts is really no big deal. The code 
requires no outside help, with the exception of the PRINT 
module included in Figure 2. The following commands will 
assemble the required modules; 


RUN $MAC 

MAC > OSCAR = OSCAR 
MAC > PRINT = PRINT 
MAC> tZ 


Task building is a bit more complicated. 

As I stated previously in the article, the monitor re¬ 
quires that the rts has its pseudo-vector region at the very 

. . . continued on page 54 
















Send for a membership application to one of the addresses listed. 
State that you want to join the RSTS SIG. 
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DECUS 

Australian Chapter 

DECUS AUSTRALIA _ 

P.O.Box 384 DECUS 

Chatswood 

NSW 2067 

Australia 


European Chapter 

DECUS Europe 
P.O. Box 510 
12, Av. Des Morgines 
CH-1213 Petit-Lancy 1/GE 
Switzerland 




DECUS 


/ 2 \ 


U.S. and 

CANADIAN CHAPTERS and others 

DECUS 
MR2-3/E55 

One Iron Way decus 

Marlboro, MA 01752 
U.S.A. 
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BRAEGEN MPD HAS THE 
DISK STORAGE 
SUBSYSTEM YOU NEED 

INTRODUCING THE DSL-SERIES OF DISK STORAGE SUBSYSTEMS 


Braegen’s Minicomputer 
Peripherals Division is 
committed to providing 
the systems and 
peripherals 
DEC-users need. 






BENEFITS 

• Compatible with *DEC * PDP-11 and 
*VAX Massbus systems. 

• Provides *RM03/RM05 Emulation 
with enhancements. 

• Supports mixed drive sizes. 



• Supports DEC Dual Port Diagnostics. 

• Supports Overlap Seeks. 

• Fast delivery. 

• Local service and quantity discounts 
available. 


For more information on the DSL- Marketing Dept: 

Series of mass storage subsystems or ■——-i nnncrrn 

any of our full line of DEC-compatible OriMtlJtl I 

computer systems, disk and tape sub- wmPD 

systems, printers, memories, multiplexers 3320 East La Paima Avenue 

, . .. Anaheim, California 92806 

and more, please call or write: Telephone <71 4 ) 520-9200 

“Be sure to ask about our field service force in over 50 cities nationwide.’’ 

^Trademarks of Digital Equipment Corporation 


BRREGEn 

mPD 

3320 East La Palma Avenue 
Anaheim, California 92806 
Telephone (714) 520-9200 
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SELECTIVE 

CLEARING 

OF 

LOGGED 

ERRORS 

By Paul DeBenedictis 
Educational Communications 
Upstate Medical Center 
Syracuse. NY 13210 


When a device goes bad. it may generate lots of errors 
in a short time, if you want to log errors for the device after 
it has been repaired, you normally must re-initialize the en¬ 
tire error log file, even though it contains entries for other 
errors which you may wish to retain in order to monitor 
your system. The following patch to ERRDIS.BAS (V7.0) 
allows you to delete ALL entries for a specific device after 
you prepare a FULL report for errors for that device, if you 
tell ERRDIS that you wish to ZERO the error file. All error 
records for the type of device that you specify will be erased 
even if the report is for a specific range of dates. All ERRDIS 
messages are updated to reflect this option. Note that if you 
delete the records for a disk error, you simultaneously delete 
all BAD BLOCK errors for the same device. Thus, your hard 
copy report should include all BAD BLOCK errors if you erase 
the errors for a disk The required patch, which may be ap¬ 
plied manually with $CPATCH, is shown at right. 


To retain bad block records, a more complicated check 
for which records to skip on the new line 12065 is needed. 
Since bad blocks are a symptom of a head crash, I have 
assumed that I usually will want to delete these records 
when I clear error records for a specific disk type. A more 
reasonable modification might be to delete only those errors 
which fall in a specified range of dates, but this would com¬ 
plicate the patch considerably. 


•C/2!/V<cr> 

2! <tabXtab>PROGRAM<tabXtab>: ERRDIS<cr> 

•H/REAS0N/2AI<er> 

<tab> I UMC HOD<tab>21-MAY-82<tab>CLEAR SPECIFIC ERROR TYPE 4<cr> 
<esc>*H/1MlO<tab>/G/ELSE<tab>/V<cr> 

<tab>ELSE<tab>GOTO 19010 4<cr> 

•I<cr> 

S$ = "a " 4<cr> 

<tab>\<tab>S$ = " File" UNLESS REPRTS = 701 AND ER.CODSXOS 4<cr> 
<tab>\<tab><eac> , V<cr> 

<tab>\<tab>G0T0 19010 4<cr> 

•G/Error/5C/"*S$*"/V<cr> 

<tab><tab>IF FNGCLJ ( "Zero Error">S#-f" upon eonpletlon ( Yes/No) ", "No" ) >0$ 4<cr> 
•J»AV<cr> 

< tab><tab>I ZER0S=-1S HEANS ZERO THE FILE 4<cr> 

•l<cr> 

<tab>\<tab>ZEROS=ZEROS AND SWAP*(REPRTS)♦ER.CODS IF 4<cr> 

<tabXtabXtab>REPRTS = 70S AND ER.CODfXO* 4<cr> 

<esc>*2AI<cr> 

<tab><tab>I ZEROS>OS MEANS DELETE SPECIFIC RECORDS 4<cr> 
<esc>»H/1560<tab>/G/INP|;/V<cr> 

<tab>\<tab>PRINT #7S,C!;INP!; " will ";S$;"be Zeroed upon completion" 4<cr> 

•I<cr> 

IF ZEROS < IS 4<cr> 

<tab>\<tab>PRINT #7S,C$;MID(SUBT$,2S*INS1R(IS,SUBT t," ")-1S ); "Errors"; 4<cr> 
<tabXtabXtab>IF ZEROS > OS 4<cr> 

<tab>\<tab>PRINT #7S,<esc>«V<cr> 

<tab>\<tab>PRINT #7S," will •;Sf;"be Zeroed upon completion" 4<cr> 
•H/10100<tab>/G/=0S/V<cr> 

<tab>\ GOTO 10120 IF T0T.RECS=0S 4<cr> 

•1/ OR ENTRY.TYPS=16S/V<cr> 

<tab>\ GOTO 10120 IF TOT.RECS=0S OR ENTRY.TYPS=16S 4<cr> 

•H/12030<tab>/V<cr> 

12030<tab>GET #5S, RECORD IS 4<cr> 

•I<cr> 

GOTO 12050 IF ZEROS > OS 4<cr> 

< t a b >\ <esc>*V<cr> 

<tab>\ GET #5S, RECORD IS 4<cr> 

•G/<ta b >4/V <cr > 

<tab>4<cr> 

•AI<cr> 

<cr> 

12050<tab>!<tab>DELETE SPECIFIC RECORDS 4<cr> 

<tab>GOSUB 10100 4<cr> 

<tab>\ ER.CODS = ZEROS AND 255S 4<cr> 

<tab>\ FIELD #5S, 8S # ER.C0DS AS DS, 2S AS N|(0S), 2S AS N$(1S), 4<cr> 

<t abXtab >2S AS N$(2S), 2S AS N$(3S) 4<cr> 

<tab>\ NS(JS)=CVT$S(N$(JS)) FOR JS=0S TO 3S 4<cr> 

<tab>\ GOTO 12090 IF TOT.RECS=OS OR NS(OS)*NS(1S)*NS(2S)*0S 4<cr> 

<tab>\ OPEN "NL:" AS FILE 6S, RECORDSIZE 512S 4<cr> 

<tab>\ USED.NOWS = 2 * *<cr> 

<tab>\ BYT.POSS,LNS = OS 4<cr> 

<tabXtab> I GET FILE STATISTICS 4<cr> 

<tabXtab> I RECOVER ERROR TYPE TO DELETE 4<cr> 

<tabXtab> I GET STATISTICS FOR THIS ERROR TYPE 4<cr> 

<tabXtab> I OPEN A NULL BUFFER 4<cr> 

<tabXtab> I RE-WRITE TO BLOCK USED.NOWS AT BYTE BYT.POSS (4<cr> 

<tabXtab>! <tab>( ALWAYS <* POSITION IN ERROR FILE) 4<cr> 

<cr> 

12060<tab>F0R IS = 2S TO TOT.USEDS 4<cr> 

<tab>\<tab>PREVS = OS 4<cr> 

<tab>\<tab >GET #5S, RECORD IS<cr> 

12065<tabXtab>FIELD #5S. PREVS AS DS, 2S AS L! 4<cr> 

<tab>\< tab>LNS = CVTSS(LS) 4<cr> 

<tab>\<tab>G0T0 12080 IF LNS<1S OR PREVS+LNS>512S 4<cr> 

<tab>\<tab>FIELD #5$, PREVS AS DS, 2S as LS, LNS-2S AS PARAMS 4<cr> 
<tab>\<tab>PREVS = PREVS ♦ LNS 4<cr> 

<tab>\<tab>GOTO 12065 IF ASCII(PARAMS) = ER.CODS 4<cr> 

<tab>\<tab>IF BYT.POSS«-LNS > 512S THEN 4<cr> 

<tabXtabXtab>FIELD #6S, BYT.POSS AS D1$ p 512S-BYT. POSS AS LIS 4<cr> 
<tabXtab>\<tab>LSET L1$ = STRING )( 5 1 2S-BYT . POSS . OS ) 4<cr> 

<tabXtab>\<tab>PUT #SWAPS ( 6S )*5S , RECORD USED.NOWS 4<cr> 
<tab><tab>\<tab>USED.NOWS = USED.NOWS ♦ IS 4<cr> 

<tabXtab>\<tab>BYT.POSS = OS 4<cr> 

<tabXtab>\<tab>GET #5S, RECORD IS<cr> 

12070<tabXtab>FIELD #6S, BYT.POSS AS DU, 2S AS LU, LNS-2S AS Pit 4<cr> 

<tab>\<t ab>LSLT L1$ = Lt 4<cr> 

<tab>\<tab>LSET PH = PARAMt 4<cr> 

<tab>\<tab>BYT.POSS * BYT.POSS ♦ LNS 4<cr> 

<tab>\<tab>GOTO 12065 4<cr> 

<tabXtab> I GO THROUGH ALL THE RECORDS 4<cr> 

<tabXtab> I GET NEXT RECORD IF IT'S TO BE DELETED 4<cr> 

<tabXtab> I IF THERE IS NO ROOM IN THE TEMP BUFFER THEN 4<cr> 
<tabXtab>l<tab>WRITE THE TEMP BUFFER BACK TO THE ERROR FILE 4<cr> 
<tabXtab>!<tab>UPDATE POINTERS TO TEMP BUFFER 4<cr> 

<tabXtab> ! <tab>RESTORE ERROR FILE BUFFER 4<cr> 

<tabXtab> I COPY THE ERROR RECORD TO THE TEMP PUFFER<cr> 

12080 <t a b>NEXT IS 4<cr> 

<tab>\ FIELD #6S , BYT.POSS AS DU, 51 2S-BYT. POSS AS P1 $ 4<cr> 

<tab>\ LSET Pit = STRINGS*512S-BYT.POSS,OS) 4<cr> 

<tab>\ PUT #SWAPS(6S)*5S, RECORD USED.NOWS 4<cr> 

<tab>\ FIELD #5S, 512S AS D$ 4<cr> 

<tab>\ LSET D$ = STRING!(512S, OS) 4<cr> 

<tab>\ PUT #5S, RECORD IS FOR IS = USED.NOWS*1S TO TOT.USEDS 4<er> 

<tab>\ GET #5S, RECORD IS 4<cr> 

<tab>\ LSET N!(JS) = ZR$ FOR JS = OS TO 2S 4<cr> 

<tab>\ LSET TOT.LOG! s CVTS!(TOT.LOGS - NS(OS)) 4<cr> 

<tab>\ LSET TOT.REC! = CVTS!(TOT.RECS - NS(2S)) 4<cr> 

<tab>\ LSFT TOT.USED! = CVTS!(USED.NOWS) 4<cr> 

<tab>\ LSET BYT.POSt = CVTS!(BYT.POSS) 4<cr> 

<tab>\ PUT #5S, RECORD IS 4<cr> 

<tabXtab> I WRITE THE LAST RECORDS WHEN WE ARE THROUGH THE FILE 4<cr> 

< tabXt ab>! GET THE HEADER AND UPDATE ALL STATISTICS 4<cr> 

<tabXtab> I NOTE: FILE WILL BE CORRUPTED IF WE CRASH BEFORE THIS LINE IS 
DONE<cr> 

12090<tab>CL0SE 5S.6S 4<cr> 

<tab>\ RETURN 4<cr> 

<esc>*EX<cr> 

t 











DIGICALC 


The total 

electronic spread sheet 
for DEC , computer systems. 



WHY SYSTEMS has 
developed the "big machine" 
software package for 
Executives, Accountants and 
Professionals who need 
their numbers fast 
and accurate. 


DIGICALC *is designed exclusively for DEC 
equipment, with an amazing range of ap¬ 
plications and one of the finest built-in 
automatic training procedures on the mar¬ 
ket Prepare everything from budgets to 
multi-yearforecasts, change one value and 
DIGICALC will re-compute all of your results 
and give you a hardcopy too. The tabular 
worksheet display on the wide screen can 
be as simple or complex as you wish and 
has the capability to call on numerous 
mathematical functions. For an amazing 
display of DIGICALC's ease of operation and 
virtually limitless capabilities call WHY 
SYSTEMS. Runs on RSTS/E and VMS. 


• ON-LINE HELP AND SELF 

TEACHING MODE 

• TEN KEY NUMERIC 

DATA ENTRY 

• EXTERNAL FILE INTERFACE 

• WORKSHEET 

CONSOLIDATION 

• “BOARDROOM QUALITY" 

REPORTS 

• EXTENSIVE MATH FUNCTIONS 

ALGEBRAIC 

LOGICAL 

FUNCTIONAL 

SCIENTIFIC 

USER DEFINED FUNCTIONS 
•SAVES AND RECALLS 
WORKSHEETS. 

VMM 

WHY SYSTEMS INCORPORATED 
17130 Avondale Way, N.E. 
Redmond, WA 98052 


CALL TODAY (206)881-2331 FOR FREE BROCHURE AND DIAL-UP DEMONSTRATION 
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Your Dec 
users and operators 
have more important things to 
do than coping with data 
communications. The COM- 
BOARD™ system from 
Software Results provides a 
reliable IBM or CDC link 
that's easy to use. 

Users accomplish their 
job and data transfers quickly 
and with less effort. Job status 
inquiries may be made from 
any terminal. Operators ap¬ 
preciate the stand-alone 
function. 

COMBOARDS are 16 bit 
CPU based single board 
computers which 
plug straight 




co^ 


Oft®*’** 


into your 
DEC UNIBUS. Your 
COMBOARD, not the DEC 
host, handles all the real time 
interrupts and protocol proc¬ 
essing associated with data 
communications. 

COMBOARD models 631, 
731 and 1231 support transfer 
rates from 4,800 to 56K baud. 
They are the leaders in DEC/ 
IBM and DEC/CDC intercon¬ 
nects. 

For more details contact 
your sales representative at 
Software Results at 614 421- 
2094 or mail the coupon today. 

SOFTWARE 

RESULTS 


1229 West Third Avenue 
Columbus, OH 43212-3090 

Send me more information on 
COMBOARD™ 

Name 

Address 


Telephone 

COMBOARD™ Software Results Corporation 
DEC, UNIBUS™ Digital Equipment Corporation 
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DEAR 

RSTS 

MAN: 



Send questions to: DEAR RSTS MAN, P.O. Box 
361. Fort Washington. PA 19034-0361. 


DEAR RSTS MAN: 

We are attempting to support a 
remote line printer run as a spooled 
device off a DH through asynch/ 
synch converter to modem and vice 
versa at the other end. It works fine 
except that since the printer is a 
serial device, if it is turned off, any¬ 
thing sent to it drops into the bit 
bucket. We solve(?) this by turning 
off the spooler at night before the 
batch processing starts. My ques¬ 
tion is: is there any way that we can 
allow a non-privleged user at the 
remote site to bring up the spooler 
in the morning without having to 
wait for someone at the host to ar¬ 
rive. We have tried changing the 
protection levels without much suc¬ 
cess as we don’t want to com¬ 
promise the system security, and 
we don’t want to give privileges to 
the users at the remote location for 
the same reason. 

Any ideas you might have would 
be appreciated. Thanks for listen¬ 
ing. SPIDL. 

Dear SPIDL: There is a way in 
QUE-11 V2.2 to load or unload a 
form in a remote printer from non 
privlege. Sorry about the DEC 
package. 

DEAR RSTS MAN: 

First I would like to thank you for 
the great magazine and the Carl 
and Dave shows at the spring 
DECUS symposia. 

I have a question that even DEC 
technical support won’t (can’t) 
answer. I would like to create a 
.TMP file and have it deleted by 
LOGOUT. The system programs 
(i.e. EDT) seem to do it fine. Is there 
a bit set somewhere in the UFD that 
users can access or is it just some 
more RSTS magic? 

Also, an article for consideration 
might be one concerning dynamic 
job scheduling. The DECUS ses¬ 
sion on the subject really got me 
excited. If anyone happens to have 


a copy of the handouts at this ses¬ 
sion, I would certainly appreciate a 
copy of them. 

Jim Carrigan 

Logon Systems 

Dear Jim: System programs know 
the full name of the TMP file they 
create. They just ‘kill’ the file e.g.; 
KILL ‘TMP’ + NUM1$(job.num %) + 
‘.TMP’. 

DEAR RSTS MAN: 

I am looking for a set of 
BASIC+ 2 or MACRO subroutines 
that will facilitate the handling of 
records with large numbers of vari¬ 
able length fields. It does not ap¬ 
pear feasible in my application (be¬ 
cause of the number of variable 
length fields in a record) to store 
each of these fields as separate 
records sharing a common control 
field as in a relational DBMS. Al¬ 
though I am capable of writing such 
a set of subroutines, I don’t want to 
re-invent the wheel. Any ideas? 

Dave Smith 

Dear Variable: The RSTS Man 
doesn’t use variable length fields, 
but we know someone who does! 
Look for a feature length article in 
the next issue (we hope). Mean¬ 
while we invite our readers to reply. 

DEAR RSTS MAN: 

We currently have a PDP 11/34A 
computer running RSTS/E V7.0 sup¬ 
porting 12 to 14 terminals, com¬ 
prised of a mixture of both local 
and remote lines. Currently we have 
460 Mbytes of disk storage provid¬ 
ed by a mixture of CDC 9762 and 
CDC 9766 drives interfaced via a 
Xylogics controller. We are in the 
final stages of development of two 
new application packages we feel 
will significantly increase our cus¬ 
tomer base. As a result we are start¬ 
ing to contemplate the possibility 
of having to upgrade our system. 
Can you offer some thoughts on the 
relative speed and job capacity of 
PDP 11/34A’s, PDP 11/44’s and PDP 
11/70’s and the relative pros and 
cons of upgrading from a PDP 
11/34A to either of these other 
systems. 

Thanks for your suggestions and 
comments. 

Jerry C. Forshee 
Computer Systems Analyst 
Green & Co., Inc. 

Dear Jerry: Both the 44 & 70 when 
properly configured with at least 1 

... continued on page 80 
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MISCELLANEOUS ITEMS 


In this issue, I have four items of interest. First is 
documentation on the "mysterious” VT100 escape se¬ 
quences. Next, for those who hate uppercase prompts, 
patches to change the Basic Plus II compiler and BP2COM 
prompts from “BASIC2" to "Baslc2'. Also, some useful 
patches for the BACKUP package. And last, a small and effi¬ 
cient TECO.INI file for those who are tired of all the overkill 
that the DEC supplied version performs. 

1.0 "Unknown” VT100 escape sequences 

The VT100 terminal has some undocumented escape 
sequence "features '. To invoke one of these features, set 
your VT100 in ANSI mode and send "<esc>[nq”, where: 

<esc> is an escape with parity (Chr$(155%)) 

[ is a bracket character 

n is one of the numbers in the next figure 

q is the lower case letter “q" 

These sequences seem to work on a stock VT100, with 
AVO, and with the printer option. I haven't been able to test 
VT101 series yet to see if it works on them. All VT100 
emulators I have seen DO NOT perform these sequences. 

The following figure lists the escape sequence number 
and what they do. Those sequences that light LEDs do not 
seem to affect the terminal's operation in any way, contrary 
to what the lights might say. 

1. 133 Lights L3 

2. 134 Lights L4 

3. 135 nothing(?) 

4. 136 Alarm bell 

5. 137 Fast repeat key mode, even some control 
keys! 

6. 138 Turns off "On Line" and lights "Local" 

7. 139 Lights "KBD Locked" 

8. 140 Lights LI 

9. 141 Lights L2 

10. 142 Lights L3 

11. 143 Lights L4 

12. 144 nothing(?) 

13. 145 Alarm bell 

The numbers 146 to 254 continue to repeat the se¬ 
quence by nines over and over, as partially shown above. 
Anything from 255 and up turns off the "On Line” LED and 
turns on the "Local" LED. 


David Spencer, Infinity Software Corporation 


2.0 Changing the BASIC2 prompt 

In previous versions of Basic Plus II, DEC made it easy to 
change your prompt to mixed case. With version 1.6, this 
was prevented. The following ONLPAT command file will 
change the "BASIC2” prompt to a more appealing "Basic2". 


Change the compiler prompt to "Basic2" 

File to patch? $BASIC2.TSK 
Base address? 26:660 
Offset address? 0 
Base Offset Old New? 

000660 000000 040502 ?"BA+ 20000 
000660 000002 044523 ?"SI + 20040 
000660 000004 031103 ?"C2 + 40 
000660 000006 000000 ? !C 
! 

I Change the keyboard monitor prompt to "Basic2" 
! 

File to patch? [0.1]BP2C0M.RTS 
Base address? ..RDY 
Offset address? 10 
Base Offset Old New? 

164466 000010 040502 ?"BA+ 20000 
164466 000012 044523 ? "SI+ 20040 
164466 000014 031103 ?"C2 + 40 
164466 000016 005015 ? 1C 


3.0 Useful BACKUP patches 

In the following figures, I have listed three very useful 
patches to the BACKUP package. All of these patches are in¬ 
tended to be installed after the application of the current 
patch kit. These patches were developed for the version 7.0 
BACKUP package, but they also work on the version 7.1 
copies as well. 

BACKTO 

BACKTO normally opens files mode zero. If BACKTO 
doesn't have write access, it prints the "data unreliable" 
message. ("?Protection violation" causes a re-open mode 
4096.) 

One of our clients has some very large data-base files 
that are opened in shared update mode. Their problem is 
sometimes when BACKUP is being done BACKTO will open 
one of the files when no one is using it. Chugging smoothly 
along, BACKTO keeps the file opened mode zero. This pre¬ 
vents ANY production job from opening that file until 
BACKUP is finished with it. 

The following patch forces BACKTO to always open files 
in read-regardless mode (4096). This way, access to data 
files will never be denied. The disadvantage is the loss of the 
“data unreliable” checking. This, I think, is a small price to 
pay. 

This patch, and the next two, can be applied with the 
CPATCH program. 
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•G/2/V <cr > 

2!<tabXtab>PROGRAM<tabXtab>: BACKTO.BAS<cr> 
•H/M9*=2048*/V<cr> 

<tab> M9*=2048J &<cr> 

•I/*4096*/V<cr> 

<tab> M9*=2048*+4096* &<cr> 

•EX<cr> 


BACFRM 

Often, I use BACKUP to transport files from one system 
to another. Sometimes I find a lot of space is wasted on 
small files when the disk dustersize of the output system is 
smaller than the input system. The happens because 
BACKUP has the "feature" of retaining dustersizes. The 
following patch creates files using the current pack duster- 
size by disabling the dustersize stored by BACKUP. 

•G/2/V<or> 

21 <tabXtab>PROGflAF. <tabxtab>: BACFRM. BAS<cr> 

•K/CL:"*/V<cr> 

<tabXtab>C<=C$»"/CL:"»KUMI *(Z05(P0t, 16J) ) IF (ZOJ AND 20A8*) »<cr> 
•2G/Z/-l'»<cr> 

<tabxtab>C» = C*»"/CL:"«NUHH(ZOJ(POJ, 18*)) IF (OS AhD 20A6S) i<cr> 
*EXbcr> 


BACDIR 

The performance of the BACKUP package can be 
helped considerably by compiling it against Basic Plus II (or 
CSPCOM). If this done, then you have gained some extra ad¬ 
dress space to add code to increase further the performance 
of some of the BACKUP components. 

The following patch for BACDIR opens its files with a 
large recordsize. This large buffer reduces disk accesses and 
greatly improves BACDIRs elapsed time. 

•H/2 !/V<cr> 

2 ! <tabXtab>PROGRAK<tabXtab> : BACDIR. BAS<cr> 

•H/1040<tab>/V<cr> 

1C40<tab>T0=TIME(0*) 4<cr> 

•G/OPEN W$/V<cr> 

<tab> OPEN W$ FOR INPUT AS FILE 1* 4<cr> 

•AI<cr> 

<tabXtab>, RECORDSIZE *1096* &<cr> 

<esc> , V<cr> 

<tab> Z$=SYS(PRIV.ON$) 4<cr> 

•G/OPEN W$ FOR IN PUT/V <cr > 

<tab> OPEN W* FOR INPUT AS FILE 2* 4<cr> 

•AI<cr> 

<tabXtab>, RECORDSIZE MO96% 4<cr> 

<esc >*V<cr> 

<tab> M* = 12* 4<cr> 

•H/15010<tab>/V<cr> 

15010<tab>ON ERROR GOTO 15100 4<cr> 

•G/OPEN FNU$/V<cr> 

<tabXtab>OPEK FNUi(P3*,N$,4224*,4096*) FOR INPUT AS FILE M* 4<cr> 

•AI<cr> 

<tabXtabXtab>, RECORDSIZE 4096* 4<cr> 

<esc>*V<cr> 

<tabXtab>Z$ = SYS( PR] V .OFFt) 4<cr> 

•EX<cr> 


4.0 Simple TECO.INI file 

Below is a TECO initializer file modeled on the one sup¬ 
plied by DEC. It prints the version of TECO, job number, 
keyboard number, account logged into, date, time, and com¬ 
mand to enter TECO. This initializer loads the VTEDIT macro 
by default. (Use of the "/NOVT" switch disables loading). 

This simplified code is patterned directly from the 
source TECO.INS found on the distribution tape, but without 
all the silly messages, file-type checking, and other 
timewasting junk. I will admit it's cute, but it gets old when 
you're waiting for VTEDIT to load. 


STOP WORKING OVERTIME! 

Especially when these Infinity Software products are 
available: 

DUMPIT Never write one of those time-consuming 
“quick and dirty” file dump programs 
again. Output in ASCII, octal, 
hexidecimal, and Radix-50, large file 
support, efficient Macro-11 code, and an 
attractive report format are just some of 
the features. Only $250. 

ENTRY Super SOURCE code BASIC2/CSPCOM 
subprogram for VT100 data entry. All 
the standard field editing features plus 
low character output for efficient use of 
low speed lines. Now for $500. 

PASMAN The intelligent solution to system 
account and password management. 
Identify users, control system access, 
and generate reports for the boss. Just 
$500. 

Now that you’ve got those off-hours free, try a few of 
our arcade style games for VT52 and VT100 terminals. 

BLKADE Up to a total of eight players try to 

fence in their opponents in this game of 
skill and strategy. 

PACKER Collect the radio-active dust from the 
maze before the four robots catch you. 
(VT100 only.) 

INVADE Protect the planet with your laser base 
from the alien invaders from space. 
(VT100 only.) 

SUBS Locate and sink your opponent’s 
submarine before he sinks you. 

STRWRS You have five minutes to destroy the 

Death Star before it destroys your moon 
base. 

WIGGIT Drop water crystals in front of the Mar¬ 
tian Wiggits before they clone and cap¬ 
ture you! (VT100 only.) 

The first game is $39.95, any additional ones are 
reduced to $29.95. All our products come with their 
own user guide. California residents please add (>Vi 
percent. 

For more information, please write or call: 

INFINITY SOFTWARE CORPORATION 

2210 Wilshire Blvd, Suite 801 
Santa Monica, California 90403 
(213) 820-2702 

CIRCLE 87 ON READER CARD 
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YOU GOTTA 

HAVE 

HEART 





Awarded to editor 
Carl Marbach at the 
May 1982 New York 
LUG Meeting by the folks 
from The NY LUG. 


RSTS PROFESSIONAL 

Box361 . Ft.Washington.PA 19034-0361 .(215)542-7008 

□ PAYMENT ENCLOSED for one year's subscription (6 issues). 

US 3rd class. $35 / Canada & US 1st class. $50 US / 

All other countries air mail. $60. payable in US dollars. 

□ BILL ME for one year's subscription: 

□ US 3rd class / □ Canada or US 1 st class / □ Other foreign. 


Please send BACK ISSUES circled: v. 1. »1 

□ $10 per issue enclosed. v. 2. *1 

□ Bill me for $12.50 per issue. V. 2. *2 

n Send me a RSTS PRO 

Tee Shirt - s 6.95 HJ 


V. 2. *3 V. 3. *2 V. 4. *1 

V. 2. *4 V. 3. *3 V. 4. *2 

V. 3. *1 V. 3. "A V. 4. *3 

0 E 0 (Adult Sizes Only) 


Name _ 
Address 


Suite 


+ •♦++ + +++ + ++•»+ + ■( +++ + +++ +++•*+++ 

TECO initialiser 
(TEC0.INI) 


*■ + + ♦ + ■♦ + + + + + + + +4+-f + ++ + 4+4 


0 $ This macro... 

1 * Exit flags: 

♦1 => Load VTEDIT 

1 $ Scratch 

2 * ET bits to clear: 

+4 => No lower case 

3 $ Command on entry 
3 * /NOVT flag 


Insert /VT if not found ! 

3 §:S*/N0VT*"S *SD < 0A"A D > ' -1U3 

| 8:S*/VT*"= $:S* *"S R | ZJ • §I*/VTEDIT* » 


I Save registers, buffer I 

HX3 HK [1 [2 

! Display version, Job, KB, PPn ! 

J 24 < 13$I** 10€I*J > 

J 8L 1 : W/2-12< §I* * > 

§I*TEC0 Version * E0\ -1W 
2L 1 :W/2-14< §I* * > 
eiJJob * OEJ\ 

§1*, KB* 1EJ\ 

@1* : [% 2EJ/256\ € 1 %,% 2EJ&255N §1*]* J -1W 
I What time is it? I 

1440-*HU1 Q1/60U2 Q2«40+Q1U1 
! AM, PM, noon, or midnight? ! 

@*U1J AM* 

Q1-1200"= §~U1* M* • 

Q1-1200"> Q1-1200U1 e^UI* PM* ' 

Q1 - 1 00 "< Q 1 4-1 200U1 » 

16L 1 :W/2-9< @1* * > 

Q1+10000X 2R @1*:* 3R -D ::@FS*0* *"S R ' 5C G1 
! Figure out the month I 


-2L 1:W/2- 
“B/1000U2 
Q1-32"< 
Q1-31U1 Q1 
Q1-28U1 Q2 
Q1 " = 29U1 
Q1-32"< 
Q1-31U1 Q1 
Q1-30U1 Q1 
Q1-31U1 Q1 
Q1-30U1 Q1 
Q1-31U1 Q1 
01-31U1 Q1 
Q1-30U1 Q1 
Q1-31U1 Cl 
Q1-30U1 


1 5 < 
B- ( 


-29" 

2/4 


§ 1 * * > 

Q2*1000)U1 

§1* January * 
< @1* February * 
*4-Q2-2"= Q1 -1U1 
§1* February * 
March * 


-31" 

-32" 

-31" 

-32 

-32 

-31 " 

-32" 

-31" 


@ 1 * 

§ 1 * 

§ 1 * 

ei* 

§i* 

§i* 

§i* 

#i* 

§i* 

§i* 


April * 
May * 
June * 
July * 
August * 
September * 
October * 
November * 
December * 


@0!FOUND! 
@0!FOUND I 

@0 ! FOUND I 
§0 ! FOUND! 
@0!FOUND! 
§0 ! FOUND! 
§0!FOUND! 
@0 ! FOUND! 
@0 I FOUND I 
€0!FOUND! 
@0!FOUND I 
§0 I FOUND! 


! FOUND! 

Q1\ §1*, * Q2+1970\ J -1W 


! Display command I 

ei*Command: * G3 -1W 

Q3 " s 4L §I*Loading VTEDIT macro* -2L -1W • ' 


City/State/Zip 


Restore registers, buffer ! 


Country_Phone ( )_ 

FREE CLASSIFIED AD WITH SUBSCRIPTION!! 

Your first 12 words are absolutely FREE, only $1.00 per word thereafter. 


SPECIAL 

All 12 Back Issues for $85.00. Payment with order. 


!EXIT! 

] 2 ]1 HK G3 ] 3 

i 

5.0 Closing notes 

That concludes this issue. If you have any suggestions 
for items that you would like to see covered in this space — 
editing or otherwise — please feel free to contact me either 
directly or through the RSTS Pro. Until next issue, have a 
I good edit. 9 


4 


» 


V4.4 
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RSTS/E SOFTWARE PACKAGES 


■ KDSS, a multi-terminal key-to-disk data 
entry system. (Also available for RSX-11M.) 

■ TAM, a multi-terminal screen-handling 
facility for transaction-processing applica¬ 
tions. (Also available for RSX-11M.) 

■ FSORT3, a very fast sort. Directly sorts 
RSTS/E files containing up to 16 million 
keys or records. Up to 70 times as fast as 
the RSTS-11 Sort package in CPU time. 

■ SELECT, a convenient, very quick package 
for extracting records that meet user-speci¬ 
fied selection criteria. 

■ BSC/DV, a device driver for the DEC DV11 
synchronous multiplexer that handles most 
bisynchronous protocols. 


■ COLINK, a package that links two RSTS/E 
systems together using DMCIIs. Supports 
file transfers, virtual terminals, and across-the- 
link task communication. 

■ DIALUP, a package that uses an asynchro¬ 
nous terminal line to link a local RSTS/E 
system to a remote computer system. Sup¬ 
ports file transfers, virtual terminals, and 
dial-out through a DN11 

(The performance-critical portions of the first 
five packages are implemented in assembly 
language for efficiency.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 


CIRCLE 29 ON READER CARD 


CORRECTION! CORRECTION!CORRECTION!CORRECTION!CORRECTION! 


The following section was inadvertently omitted from “The Disk Inversion Map” by 
Michael H. Koplitz [RSTS PROFESSIONAL, v. 4, no. 3. June 1982. p. 37]. 


In addition, we have reprinted 


Mr. Koplitz’ sample map, enlarged for 
clarity. 


\j****************************************************************** 

\i* 

\1* THIS PROGRAM WAS WRITTEN BY M H KOPLITZ 

M* 

\i* THIS PROGRAM WILL GATHER THE UFD DATA NEEDED FOR A FULL DISK 
\1* REPORT. 

\ 1 * 

\1 ****************************************************************** 

010 DIM #1%,MFD%(3583%,7%) 

\ DIM #2%,UFD%(3583%,7%) 

\ X? = SYS (CHR$ (6%)-tCHR? (-7%)) 

\ DCS% = 8% IDIMENSION VIRTUAL ARRAYS 

\ !SET UP "C TRAP 

\j **************************************************************** 

\ 1 * 

\l* NOTE THAT THE DCS% MUST BE SET UP PRIOR TO RUNNING THE 
\i* PROGRAM. THE DCS% HERE IS FOR AN RP06. 

\1* DCS% IS THE DEVICE CLUSTER SIZE AND IS HARDWARE DEPENDENT. 

\ 1 * 

\1* IF ONE HAS SEVERAL DIFFERENT DISK DRIVES THE DCS% VALUE COULD 
M* INPUTED AS PART OF THE JOB STREAM. 

\ 1 * 

\ 1 *********************************** 4 **************************** 


020 

ON ERROR GOTO 32000 

! ERROR FLAGGING SETT UP 

030 

PRINT "MAPUFD V2.1 Full disk 

map" 

\ 

PRINT 

!PRINT BANNER. 

035 

INPUT "Device";DEVICE? 

1GET DEVICE TO EXAMINE 

040 

OPEN "MAPUFD.DAT" 

FOR OUTPUT AS FILE #10% 




10PEN OUTPUT.FILE? FOR OUTPUT 

080 

OPEH " 11,1] "+OEVICE? 

FOR INPUT AS FILE #1%, 



MODE 8192% 

10PEN THE MFD READ ONLY 

090 

PCS% = 16% 


\ 

CS% = 16% 


\ 

FOR X% * 1% TO 7% 


\ 

DISK.CLUSTER 

= (MFD%(31%,X%) - 1%) 
* DCS%/PCS% 


\ 

DISK.CLUSTER? 

= NUMl? (DISK .CLUSTER) 


\ 

DISK.CLUSTER? = 



STRING? ((5-LEN (DISK.CLUSTER?)) 
,48%) 

+ DISK .CLUSTER? 

\ OUTPUT? = DISK.CLUSTER? + 

+ "[ 0, 0]***MFD***," 

+ NUM1?(MFD%(31%,0%)) 

\ OUTPUT? = OUTPUT? 

+ SPACE?(50%-LEN(OUTPUT?)) 
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\ 

PRINT #io%,ouipur$ 


510 

LINK% = UFD%(UFD.LINK%,7%) 1RETRIVAL LINK TO SUBROUTINE 


IF MFD%(31%,X%) <> 0% 




\ 

NEXT X% 

1 WRITE TO OUTPUT FILE THE 

515 

GOSUB 15000 

\ 


1 MFD CLUSTERS 

\ 

UAR.LINK% = LINK% 




\ 

GOTO 900 IF UAR.LINK% = 0% 1GET RETRIEVAL ENTRIES 

100 

LINK% «= MFD% (0%, 0%) 

!SET-UP FOR SUBROUTINE 

520 

FOR X% = 1% TO 7% 

105 

QQSUB 15000 


\ 

GOTO 900 

\ 

MFD.LIM<% = LIW% 

IGET FIRST NAME ENTRY, GIVE 


IF UFD%(UAR.LINK%,X%) = 0% 



1 VALUE OF ARRAY INTO LINK% 

\ 

UNSIGNED.TEST = 



1 THEN RETURNED LINK% IS 


FNUSI(UFD%(UAR.LINK%,X%)) 



1 INDEX INTO ARRAY 

\ 

DISK .CLUSTER = 





((UNSIGNED. TEST-1)*DCS%)/PCS% 

110 

GOTO 120 IF LINK% = 0% 


\ 

DISK.CLUSTER? = NUM1 $ (DISK.CLUSTER) 

\ 

PROJ% = SWAP%(MFD%(MFD.LINK%,1%)) 


\ 

DISK .CLUSTER? = 


AND 255% 



STRING?((5-LEN(DISK.CLUSTER?)),48%) 

\ 

PROG% = MFD%(MFD.LINK%,1%) AM) 255% 



+ DISK.CLUSTER? 

\ 

UFD.CLUSTER = FNUSI(MFD%(MFD.LINK%, 7%)) 


\ 

1GET RETRIEVAL ENTRIES 

\ 

GOTO 1000 IF UFD.CLUSTER <= 0% 




\ 

GOTO 1000 


525 

OUTPUT? = DISK.CLUSTER?*","+ 


IF (MFD%(MFD.LINK%,4%) AM) 64%) 



FILE.NAME?*","+ 


<> 64% 



NUM1?(CLUSTER.SIZE%) 

\ 

GOTO 130 

1GET PROG AND PROJ NUMBER 

\ 

OUTPUT? = OUTPUT? 



! SKIP IF NOT MFD ENIRY 


+ SPACE? (50%-LEN (OUTPUT?)) 



! SKIP IF NO UFD EXISTS 

\ 

PRINT #10%,OUTPUT? 





IF INSTR(1%, DISK .CLUSTER?,".") 

120 

PRINT "EM) OF PHASE 1" 



= 0% 

\ 

GOTO 32767 

IEND OF PHASE 1 

1GOTO END OF PROGRAM 

\ 

NEXT X% 1 PRINT OUT RETRIEVAL ENTRIES, 

130 

PROJ5 = NUMl?(PROJ%) 



! DISK.CLUSTER = ((DCN-1)*DCS) 

\ 

PROJ $ = SPACE? (3%-LEN (PROJ ?) )+PR0J? 



1 /PCS 

\ 

PROG$ = NUMl?(PROG%) 




\ 

PROG? = SPACED(3%-LEN(PROG$))+PROG? 


530 

LINK% = UFD%(UAR.LINK%,0%) 

\ 

UFD.ACCOUNT $ = "["+PROJ?+"," 


\ 

GOTO 515 1GET MORE UNTIL ZERO IN LINK% 


+ PROG$+"]" 

1 FORMAT THE UFD.ACCOUNT 



140 

LINK% = MFD%(MFD.LINK%,6%) 


900 

GOTO 200 1GET MORE UFD ENTIRES 

\ 

GOSUB 15000 




\ 

LINK .TO.AOCOUNITNG% = LINK% 




\ 

UFD.CLUSTER.SIZE% = 


1000 

LIM<% = MFD% (MFD.LINK%,0%) 


MFD%(LINK.TO.ACCOUNTING%,7%) 

!GET NEXT UFD NAME ENTRY 

\ 

GOTO 105 1GET NEXT MFD 



! AND GET ACCOUNTING ENIRY 



150 

OPEN UFD. ACCOUNT ?+DEVICE? 


15000 

i************************************************************* 


FOR INPUT AS FILE #2%, 


\ 

1* 


MODE 6192% 

[OPEN UFD 

\ 

1* THIS SECTION CALCULATES A LINK% 

155 

GOTO 160 IF UFD.ACCOUNT? = r ( 1, 1]" 


\ 

\ 

1* 

1************************************************************* 

\ 

FOR X% = 1% TO 7% 




\ 

DISK .CLUSTER 


15010 

CLO.MASK% = 7% * 512% 


= FNUSI(UFD%(31%,X%)) 


\ 

ENO.MASK% = 31% * 16% 

\ 

DISK .CLUSTER = 


\ 

UL.BLO% = (SWAP%(LINK%) AND 240%)*2% 


((DISK.CLUSTER - 1) *DCS%)/PCS% 

\ 

UL.CLO% = ((LINK% AND CLO.MASK%)/16%)*CS% 

\ 

DISK .CLUSTER? = 


\ 

UL.EN0% = (LINK% AND ENO.MASK%)/16% 


(NUMl?(DISK.CLUSTER)) 




\ 

DISK.CLUSTER? = 


15050 

LIM(% = UL.BL/0% + UL.CLO% + UL.ENO% 


STRING? ((5-LEN(DISK.CLUSTER?)) 

,48%) 

\ 

RETURN 


+ DISK.CLUSTER? 




\ 

OUTPUT? = DISK.CLUSTER?+","+ 


15100 

i ************************************************************ 


UFD. ACCOUNT ?+"**UFD**"+" 


\ 

i* 


NUM1? (UFD. CLUSTER. SI ZE%) 


\ 

1* THIS FUNCTION CONVERTS UNSIGNED INTEGER TO FLOATING PT. 

\ 

OUTPUT? = OUTPUT? 


\ 

1* 


+ SPACE? (50%-LEN(OUTPUT?)) 


\ 

1************************************************************ 

\ 

PRINT #10%,OUTPUT? 





IF UFD%(31%,X%) <> 0% 


15110 

DEF FNUSI(USINT%) 

\ 

NEXT X% 

!WRITE OUT CLUSTERS THAT ARE 

\ 

USTMP = USINT% 



! UFD CLUSTERS, SKIP IF THE 

\ 

USTMP = USTMP + 65536 IF USINT% < 0% 



! ACCOUNT IS 11,11] THE MFD. 

\ 

FNUSI = USTMP 




\ 

FNEND 

160 

UFD.LINK% = UFD% 

!SET UFD LINK 

20040 

RETURN 

200 

LINK% = UFD%(UFD.LINK%,0%) 

1 PREPARE FOR SUBROUTINE 

32000 

1************************************************ 

205 

GOSUB 15000 


\ 

1* 

\ 

UFD.LIM(% = LINK% 


\ 

1* ERROR SECTION. 

\ 

GOTO 200 IF UFD%(UFD.LINK%,4%) AND 64% 


\ 

1* 

\ 

GOTO 1000 IF UFD.LINK% = 0% 

1QO GET NEXT LINK 

1SKIP IF MFD ENTRY 

\ 

1************************************************ 




32005 

IF ERR = 28 THEN 32767 

210 

FILE.NAME? = UFD. ACCOUNT?* 





RAD? (UFD% (UFD.LINK%,1%)) + 

RAD?(UFD%(UFD.LINK%,2%))+ 


32010 

IF ERL = 150 THEN RESUME 1000 




32020 

ON ERROR GOTO 0 


RAD? (UFD% (UFD.LINK%,3%)) 

1PRINT FILE NAME 

32766 

j************************************************ 

220 

LINK% = UFD%(UFD.LINK%,6%) 


\ 

1* 

\ 

GOSUB 15000 


\ 

1* EOJ 

\ 

UAA.UFD.LIM<% = LINK% 

1 ACCOUNTING LINK 

\ 

!* 




\ 

i ************************************************ 

230 

CLUSTER.SIZE% = UFD%(UAA.UFD.LINK%,7%) 





IF UAA.UFO.LINK% <> 0% 


32767 

CLOSE #1% 

\ 

CLUSTER.SIZE% = 16% 


\ 

CLOSE #2% 


IF UAA.UFD.LINK% = 0% 

1CLUSTER SIZE 

\ 

END 


• • • FULL DISK MAP • • • 


CLUST RANGE FILE NAME CLUST RANGE FILE NAME CLUST RANGE FILE NAME CLUST RANGE FILE NAME 


C - 6 [ 0,0] ftf MFD f## 7- 55 t**# FREE tt#t 56-56 [1,1 ]DIBOLR.STB 57-58 [1,1 ]DIBOLR.TSK 

59- 59 [ 1,11DBRTKB.CMD 60-60 [1,1 ]DBRSRN.ODL 61 - 27805 27806-27806 ••••END*»« 




RSTS/E INTERNALS MANUAL 


The RSTS community has been clamoring for years for a book that details the inner workings of RSTS/E. 
Well, clamor no more. Michael Mayfield of Northwest Digital Software, and M Systems, the publisher of The 
RSTS Professional and The DEC Professional Magazines, have teamed up to produce the RSTS/E Monitor Inter¬ 
nals Manual. 

This manual describes the internal workings and data structures of the RSTS/E monitor. It also notes dif¬ 
ferences in the internal structures between version 7.1 and earlier versions of the monitor. Future updates will in¬ 
clude changes for new versions of the monitor. 

Information is available for all levels of users: 


• Gain a basic understanding of the workings of the 
monitor for optimizing system performance. 

• Information on disk structures allows recovery of 
data from corrupted disk packs. 

• Special uses of runtime systems and resident 
libraries allow complex applications to be 
developed without degrading system performance. 

• Write your own custom device drivers for that 
“foreign” device you need to add but thought you 
couldn’t. 

CONTENTS: 

Chapter 1 describes the structures used by the 
monitor that are resident on disk. These include the 
directory structure, disk allocation tables, Save Im¬ 
age Library (SIL) formats, bootstrap formats and bad 
block mapping. 

Chapter 2 describes the tables used within the 
monitor to control system resources and provide pro¬ 
gram services. These tables provide job, memory, file 
and device control, as well as program services such 
as interjob communication. 


Chapter 3 contains information on writing and in¬ 
stalling a custom device driver. It describes the entry 
points and information the driver must provide to the 
monitor as well as the subroutines and macros the 
monitor provides for the driver. 

Chapter 4 contains information that enhances in¬ 
formation already provided by Digital on writing 
custom resident libraries and runtime systems. It con¬ 
centrates mainly on non-standard uses of resident 
libraries and runtime systems to increase system per¬ 
formance and functionality. 

Appendix A provides six quick reference foldout 
charts: 

• The directory structure. 

• The monitor tables. 

• Fixed memory locations and common data 
structures. 

• Monitor subroutines. 

• Device driver entry points. 

• Device driver macros. 



Appendix B provides examples of the peek se¬ 
quences required to access most of the monitor 
tables. It also contains an example program that uses 
many of the monitor tables to display a job and open 
files status. 


Appendix C provides an example device driver. 


Appendix D provides an example runtime system 
that doubles as a menu system for restricting 
specified users to a menu of options. 


$ 95 °° 


SEND ORDERS TO: M SYSTEMS, INC., BOX 361, FORT WASHINGTON, PA 19034-0361 





HAMILTON 


VAX 

TIME SHARING 

VMS, FORTRAN, BASIC 
& WORD PROCESSING 

ATTRACTIVE PRICING 

PDP 11 to VAX 
Conversion Support 

Call Toll Free 800 - 631-0298 

In New Jersey 201 - 327-1444 

Pearl Court, Allendale, N.J. 07401 


TIME SHARING 


Total Support Timesharing for New York area users 


SOFTWARE AVAILABLE 

VAX/VMS 

VMS Fortran 77 
VMS Basic 

VMS FMS (Forms Management 
System) 

VMS MACRO Assembler 
VMS Multikey SORT Utility 
VMS EDT Full Screen Text Editor 

Tektronix PLOT 10 including Interactive 
Graphics Library (IGL) and Easy Graphing 

Hamilton Word Processing 

DRS Data Base Management System 

Compucon CAPE PAK packaging design tool 

Fully supported PDP11 versions of RT11, 
CTS300, RSX11M, and RSTS/E, 
operating systems for media and software 
conversion to VAX/VMS 


COMMUNICATIONS 

300/1200 baud dial up 
(Local call for 212 users) 

Multiplexed leased lines available for multi¬ 
terminal access 

TERMINAL RENTAL 

Rented, installed and maintained 

DEC VT 100 CRT’s 
LA34 & LA 120 Printers 
Diablo Word Processing Printers 
Data Products 300/600 LPM Printers 
Tektronix Graphics Terminals and Plotters 
Hewlett Packard Terminals & Plotters 
GDC Modems and Micom Multiplexors 
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People productivity. It’s more important than ever. 
And a good database system can mean real 
productivity. 

USER-11 is a high-performance database system. 

It is a fact: Software designed with USER-11 is 
built more quickly, operates more reliably, and 
performs better than other software techniques. 

USER-11 is unique. It’s easy to install. Easy to 
learn. And easy to apply. Adaptive tools and a 
standard approach ensure that maintenance is 
easier than ever. 

A key to USER-1 l’s success is its powerful, 
dictionary-based modules. Software developers 
simply describe and assemble these modules to 
create custom business packages—at an 
unprecedented rate. 


Naturally USER-11 is supported with excellent 
documentation and a variety of training options 
for beginner to expert. Our commitment is to your 
complete satisfaction. 

Whether you are a software provider or a software 
user, we guarantee you will be delighted. 

Ask us about USER-11 and our family of business 
software products, or better yet, ask a 
productive USER! 

North County 
Computer Services, Inc. 

2235 Meyers Ave., 

Escondido, California 92025 
(714) 745-6006, Telex: 182773 

*USER-11 is currently available for DEC computers 
using the RSTS operating system 


■00001 
■000(31 
■OOOOB 


©NCCS 1982 
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RSTS SITE MANAGEMENT AND APPLICATION DEVELOPMENT TOOLS 


□ M/APS 

a menu/authorization processor and application security system 
that controls user access to menus and applications programs. 
Uses DEC'S VT series CRTs. 

□ VT100 ACCOUNTING CALCULATOR 

a multi-function calculator designed for users of DEC'S VT100 
CRTs. Options and features beyond the capabilities of the 
normal Accountant's calculator. 

□ SOURCE/FILE CROSS-REFERENCE (XREF) 

XREF provides cross-reference listings which detail the relation¬ 
ship between source files, callable routines, data files and task 
images. 

□ APC 

an automatic password changer that creates meaningful six- 
character passwords and updates the ACCT.SYS file, allows 
selective changing of passwords and produces three informative 
reports. 


□ KEYBOARD MASTER 

a system support tool that allows the system support manager to 
monitor, interact or take control of an interactive session. 

□ STANDARD SUBROUTINE LIBRARY 

callable macro-11 routines that perform screen and terminal I/O, 
cursor positioning and many other necessary program functions, 
including data conversions. 

□ ENCRYPTION ROUTINES 

a site security feature which encodes ASCII characters and can 
be incorporated into any application where sensitive data is 
processed. Also exists as a stand alone program for encoding and 
decoding entire files. 

McHugh, Freeman & Associates, Inc. 

1135 Legion Drive 
Elm Grove, Wisconsin 53122 
(414) 784-8250 
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11 /74 s NOW AVAILABLE 


For internal use, the Internal Equip¬ 
ment Group (IEG) has 11/74 CPUs availa¬ 
ble for internal distribution in the New 
England area only. The 11 /74 is function¬ 
ally equivalent to the 11 /70. supporting 
the same hardware as well as running the 
same software. The 11 /74 is a viable 
alternative to the 11 /70. and has signifi¬ 
cant reliability improvements designed in. 

Design improvements include: 

□ Increased EMI/ESD (FCC compliances) 
performance 

□ Meets FCC requirements for 
emission 

□ Meets DEC 
susceptibility 

□ Withstands 71 

□ Increases system security memory 
control 

□ Improved CPU cabinet cooling 

□ Physical partitioning between CPU. 
memory and expander cabinets 


□ Improved power system 

□ Minimum chance of maintenance caus¬ 
ing problems. 

Field Service is committed to support 
11 /74 internal systems in the New Eng¬ 
land area. 

If you are considering upgrading an 
existing 11 /34. 11 /40, or 11 /45. the 
11 /74 CPUs and memory are available^ 


days after receipt of order (ARO) from the 
Internal Equipment Group. Delivery for 
new system orders are dependent upon 
the availability of additional material on 
your order. 

The internal PDP-11/74 cost and the 
field service basic monthly charge are the 
same as for the 11/70. 

ly additional questions regarding 
mg and delivery can be answered by 
IEG Account Representative at DTN 
5. 


1 


I 


□ Memory boxes have direct path for 
filtered outside air intake 


PRIOR TO INTERNAL DECUS SYMPOSIUM. FRED BRASSARD RUNS DIAGNOSTICS OF 11/74. 














The VAX-SCENE 

Number 9 (rsts professional, voi. 4. no. 4) August 1982 
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INSIDE: 


□ VAX-11/780 AND VMS 
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VAX-11 /780 
AND VMS 

By Michael H. Koplitz 

THE VAX-11/780 PROCESSOR 

The VAX-11 /780 processor (see figure A) is a set of 
hardware logic that performs the operations of a computer 
system according to the VAX-11 architecture. The in¬ 
tegrated components of the processor are: the CPU, includ¬ 
ing its cache, writable diagnostic control store, floating 
point accelerator (optional), clocks and console; Main 
memory and its controllers; Input/output bus adapter; Op¬ 
tional multiport memory; Optional high performance 32-bit 
interface. 

The CPU performs all of the logical and arithmetic 
operations requested by the computer system. The CPU con¬ 
tains sixteen 32-bit general purpose registers for data 
manipulation, and the Process Status Longword for control¬ 
ling the execution states of the CPU. 

The CPU also includes 12K bytes of writable diagnostic 
control store for updating the instruction set microcode. 
This area is also used for storing microcode diagnostics. The 
processor can also support 12K of user writeable control 
store, which the user can use to program the processor in 
microcode. 

The VAX-11 /780 console consists of an LSI-11 
microcomputer (PDP-11/03) with 16 bytes of read/write 
memory and 8K bytes of ROM (used for LSI-11 diagnostics 
and LSI bootstrap), a floppy disk system, a hard copy ter¬ 
minal (LAI 20) and optional remote diagnostic port (RDC). 
The operator communicates with the VAX-11 /780 via the 
console with a set of user oriented commands. 

The VAX-11 /780 memory interconnect (same as syn¬ 
chronized backplane interconnect (SBI)) is the system's in¬ 
ternal bus conveying addresses, data, and control informa¬ 
tion between the processor and memory, and between 
memory and I/O controllers. The memory interconnect has a 


cycle time of 200 seconds and can transfer 32 bits each 
cycle. Data transfers use two consecutive cycles to transfer 
64 bits at a time. The maximum memory interconnect 
transfer rate is 13.3 million bytes/second. 

The VAX-11/780 Main Memory consists of MOS RAM 
integrated circuits with a cycle time of 600 nanoseconds. A 
memory controller can access a maximum of 4M 
(4,194,304) bytes. Two memory controllers can be con¬ 
nected to the memory interconnect, yielding a maximum of 
8 M bytes of physical memory that can be available on the 
system. The maximum total physical address space is 2 to 
the 29th power or approximately 512 million bytes. It 
should be noted that data is fetched from the memory at a 
rate of 64 bits/access. 

The memory controller will buffer a command while it 
processes another to increase system throughput. Main 
memory can also be interleaved. The memory system em¬ 
ploys error checking and correction that corrects all single 
bit error and detects all double bit errors. 

Memory Cache is the primary cache system for all data 
coming from memory, including addresses, addresses trans¬ 
lations and instructions. The memory cache is an 8K byte. 2 
way set associative, write through cache. 

The address translation buffer on the VAX-11 /780 is a 
cache of virtual to physical address translations. The cache 
contains 128 virtual to physical page address translations 
which are divided into equal sections; 64 system page trans¬ 
lations and 64 process page translations. Each section is 
two-way associative. 

The instruction buffer on the VAX-11/780 is eight 
bytes long and improves CPU performance by prefetching 
instructions in the instruction stream. The instruction buf¬ 
fer effectively eliminates the time spent by the CPU waiting 
for instructions to be fetched.The processor interfaces for a 
MASSBUS peripheral (high speed disks or tape drives) is the 
MASSBUS adapter. The MASSBUS adapter performs control, 
arbitration, and buffering functions. Up to four MASSBUS 
adapters can be connected to the memory interconnect. 
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Each MASSBUS adapter includes its own address/transla¬ 
tion map that permits scatter/gather disk transfers. The 
MASSBUS adapter includes a 32 byte silo data buffer. Data 
are assembled in 64 bit quadwords (plus parity) to make ef¬ 
ficient use of the memory interconnect bandwidth. 

All devices other than the high speed disk drives and 
magnetic tapes are connected to the UNIBUS, an asyn¬ 
chronous bidirectional bus. These devices include all Digital-, 
and user-developed real-time peripherals. The UNIBUS is 
connected to the memory interconnect through the UNIBUS 
adapter. Up to four UNIBUS adapters can be placed on the 
memory interconnect. The UNIBUS adapter translates an 18 
bit UNIBUS address into a 30 bit memory interconnect ad¬ 
dress. The speed of data paths on the UNIBUS is 1.35 million 
bytes/second. 


THE VMS OPERATING SYSTEM 
VAX/VMS Operating System Overview 

VAX/VMS is a general purpose operating system for 
VAX systems. VMS allows for a high-performance environ¬ 
ment for the concurrent execution of multiuser timeshar¬ 
ing, batch and real time applications written in BASIC, 
COBOL. FORTRAN, PASCAL. BLISS. CORAL, PL/1 and 
assembly language. 

VAX/VMS features include memory management, 
event-driven priority scheduling, shared memory, file and in¬ 
terprocess communications, data protection based on 
ownership and application groups, user privilege and 
resource allocation control, and easy-to-use, easily extended 
command language. 

VAX/VMS also includes multijob batch processing, pro¬ 
gram development tools, extensive file and record manage¬ 
ment services, programmed system services for process and 
subprocess control and interprocess communications, com¬ 
mon run-time procedure library, and system maintenance 
utilities. 

VAX/VMS also includes .the following facilities: 
Operating system nucleus, including virtual memory 
manager, swapper, system services, and I/O device driver, 
user authorization control programs, job initiator, and sym¬ 
biont manager, account manager, and operator communica¬ 
tions manager. 

Other special features include error logging and print 
utility, DCL command interpreter, MCR command inter¬ 
preter, interactive and batch editors, macro assembler, 
linker with cross reference, library maintenance utility, com¬ 
mon run-time procedure library, symbolic debugger for 
native programs. RMS, FILES-11, SORT/MERGE utility, user 
environment package, and software maintenance release 
update utility. 


VAX/VMS VIRTUAL MEMORY SYSTEM 

VAX/VMS consists of 2* *32 (two to the 32nd power) 
bytes of virtual address space divided into system and pro¬ 
cess spaces, each of which has 2**31 bytes. Process virtual 
space is divided into a program region and a control region. 
The program region contains the image of the job currently 
being executed. The control region contains information 


maintained on behalf of the process by the system, and it 
contains the user stack and the kernel, executive and super¬ 
visor mode stacks. Only a small amount of the control 
region is reserved for the system, the remainder is available 
to the user. 

The virtual memory for a process is subdivided into 
pages. Each page consists of 512 bytes. The system and user 
virtual spaces are described in a data structure called the 
system page table (SPT) which contains one page table entry 
for each page of system virtual memory. When a virtual 
page is in memory, the page table entry contains the page 
frame number needed to map the virtual page to a physical 
page. 

The process's virtual space is described in two page 
tables: the PO page table for the program region and the PI 
page table for the control region. The hardware system base 
register (SBR) and system length register (SLR) provide the 
physical address and the length in longwords of the system 
page table. Given the contents of the SBR and SLR, it is 
possible to locate all system virtual pages. 

Memory management uses page tables as the data 
base to contain the status and location of virtual pages of 
processes. A process contains an entry in the appropriate 
process page table to describe that page and its location. 

The following are descriptions of the processes and ser¬ 
vices performed by VAX/VMS: 

WORKING SET 

The section of pages of a process that need to be in 
memory, remaining pages are kept on a secondary storage 
device. 

BALANCE SET 

The set of processes that reside in physical memory are 
termed the balance set. This set of processes has memory 
requirements that balance with available memory of the 
system. 

WORKING SET SWAPPER 

The working set swapper is a small process that 
returns process working sets into the balance sets and 
removes them from the balance set. The main function of 
this process is to provide memory residency for the highest 
priority executable processes so that they may be scheduled 
for execution. 

PROCESS SCHEDULING 

VAX/VMS operating system defines 32 levels of soft¬ 
ware for scheduling processes. The lower 16 levels are 
reserved for normal processes, while the higher 16 levels are 
reserved for real-time processes. The scheduler makes 
scheduling using the following policies: 

1. Maintaining a queue for each state that a process 
can attain. 

2. Reacting to system events. 

System events are occurrences that causes the status of one 
or more processes in the system to change. 
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SYSTEM PROCESSES 

There are three types of system processes: 

1. Full process — user processes. 

2. Small process — no program region in their virtual 
address space, they must remain resident in memory 
when operating, for example the working set 
swapper is a small process. 

3. Fork process — they are defined by an abbreviated 
control block. Fork processes execute at software in¬ 
terrupts. An example is a device driver routine. 

SYSTEM SERVICES 

EVENT FLAG SERVICES — Allowing a process to read, 
wait for, and manipulate event flags. 

ASYNCHRONOUS SYSTEM TRAP (AST) SERVICES — 
these traps are for interrupts caused by I/O completions. 
System services are provided so that a process can control 
the handling of the ASTs. 

LOGICAL NAME SERVICES — generalized technique for 
maintaining and accessing character string logical names 
and equivalence name pairs. 

I/O SYSTEM SERVICES: 

1. Perform physical, logical and virtual data I/O opera¬ 
tions. 

2. Format output lines, converting binary numeric 
values to ASCII strings, substituting variable data in 
ASCII strings. 

3. Perform network operations. 

4. Queue messages to system processes. 

5. Create mailboxes, which are virtual devices for inter¬ 
process communications. 

PROCESS CONTROL SERVICES — allows the user to 
create, delete and control the execution of a process. 

TIMER AND TIME CONVERSION SERVICES - schedules 
events for a particular time of day or after a specified inter¬ 
val of time has elapsed. 

CONDITION HANDLING SERVICES — procedures that 
can be designated to receive control when a hardware or 
software condition occurs during image execution. 

MEMORY MANAGEMENT SERVICES — allows a process 
to control its own use of virtual and physical memory. 

CHANGE MODE SERVICES — alter the access mode of a 
process to a more privileged mode to execute particular 
routines. 

INTERPROCESS COMMUNICATIONS AND 
SYNCHRONIZATION 

Interprocess communications can occur using the 
following methods: 

1. Shared data base 

2. Mailboxes 

3. Shared files 

VAX/VMS INPUT/OUTPUT 

I/O INTERFACES — I/O programming interfaces are 
RMS (record management services for general purpose file 
and general processing) and direct I/O processing. 

I/O REQUEST PROCESSING — all I/O requests are 
generated by a Queue I/O (QIO) request system service. 


VAX/VMS REAL TIME ENVIRONMENT 

VAX/VMS has established the following attributes for 
a real time environment: 

1. Highly efficient process scheduler providing 16 real 
time process priorities. 

2. Rapid process context switching. 

3. Rapid hardware process of interrupts. 

4. Interrupts vectored to VAX/VMS device drivers. 

5. VAX/VMS support of PDP-11 peripherals and 
facilities to enable users to add support of their own 
devices. 

6. Ease of use facilities to provide mapping of the I/O 
page and connecting to an interrupt. 

I/O DRIVERS 

A VAX/VMS device driver is a set of tables and routines 
that control I/O operations on a peripheral device interfac¬ 
ing to a VAX system. A VAX/VMS device driver: 

1. Defines the peripheral driver for the rest of the 
VAX/VMS operating system. 

2. Defines the driver for the operating system pro¬ 
cedure that maps and loads the driver and its device 
data base into the system virtual memory. 

3. Initializes the device (and/or its controller) at system 
startup time and after a power failure. 

4. Translates software requests for I/O operations into 
device specific commands. 

5. Activates the device. 

6. Responds to hardware interrupts generated by the 
device. 

7. Reports device errors. 

8. Returns data and status from the device to soft¬ 
ware. 

USER ACCOUNT SCHEME 

Accounts for each user are used for the following 
reasons: 

1. To denote the users of the system. 

2. To define important relationships among users of 
the system. For example, groups of users who may 
share data files. 

3. To grant some users privileges. 

4. To set limits on the user of re-usable resources. 

5. To give user priorities in using the system. 

The User Authorization File (UAF) is used to designate 
the above possibilites. Each user has one record in the UAF. 
VAX/VMS examines the UAF whenever a process is running 
to ensure that the user's process can have access to a 
resource. 

The UAF record contains the following: 

1. User's identification 

a. User’s name 

b. Password 

c. UIC (user identification code) 

d. Account name 

2. User's default directory name and default device 
name 





August 1982 page 51 

F^SPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONAIJ^STSPROFESSIONALRSTSPROFESSIONALJ^STSPROnESSIONAlJ^STSPROFESSIONALi^STSPROFESSIONAlJ^STSPROFESSIONALRSTSPROFESSIONALPSrSPROFESSIONALRSrSP 


RSTS/E ON VAX 
ROSS/V 

(RSTS/E Operating System Simulator for VAX) 


ROSS/V is a software package, written in 
VAX-11 MACRO, which provides a RSTS/E 
monitor environment for programs running in 
PDP-11 compatibility mode on DEC’S VAX-11 

ROSS/V supports: 

■ The BASIC-PLUS interactive environment 

■ Concurrent use of multiple run-time systems 

■ Update mode (multi-user read/write access to 
shared files.) 

■ CCL (Concise Command Language) commands 

■ An extensive subset of RSTS/E monitor calls 


ROSS/V runs under VMS and interfaces to pro¬ 
grams and run-time systems at the RSTS/E 
monitor call level. ROSS/V makes it possible for 
DEC PDP-11 RSTS/E users to move many of 
their applications directly to the VAX with little 
or no modification and to continue program 
development on the VAX in the uniquely hospit¬ 
able RSTS/E environment. Most BASIC-PLUS 
programs will run under an unmodified 
BASIC-PLUS run-time system. 

RSTS. PDP-11. VAX-11, and DEC are trademarks of Digital Equipment Corporation. 


ROSS/V is available from: 


(Eastern U.S.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 


(Central U.S.) 

Interactive Information Systems, Inc. 

10 Knollcrest Drive 
Cincinnati, Ohio 45237 
(513) 761-0132 

CIRCLE 67 ON READER CARD 


(Western U.S.) 

Online Data Processing, Inc. 

N. 637 Hamilton 
Spokane, Washington 99202 
(509) 484-3400 


3. User’s default command interpreter name 

4. User’s allotment of system resources 

5. User’s privileges 

6. User’s 1 2 3 4 5 6 base priority 

DIGITAL COMMAND LANGUAGE (DCL) 

DCL is used to request some action to be taken by the 
operating system. There are many DCL commands so only 
the format will be discussed. 

$[label:] command-name[qualifier] [parameter-1]...[parameter -n] 

where: 

1. dollar sign $ — must be in position one. 

2. Brackets — indicate and optional value. 

3. Labels — used to transfer flow of control via the 
GOTO command. 

4. Command names — indicates the action the com¬ 
mand is to perform. 

5. Qualifiers — used to modify the default action of a 
command. 

6. Parameters — either specifies what a command is to 
use when executing, or further defines the action a 
command is to take. 
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T 1IPS& 

ECHNIQUES 

A Column For The Advanced RSTS/E User Wef Fleischman, Software Techniques, Inc. 


DETERMINING SYSO CALL PRIVILEGES 

One of the most critical responsibilities a system 
manager confronts daily is protecting the security and in¬ 
tegrity of his system. This column will explore a very simple 
monitoring technique that can help you pinpoint quickly one 
class of "trap doors": Privileged SYS calls that have been 
changed to be non-privileged. 

The RSTS system manager's job is made easier by pro¬ 
tection mechanisms that have been built into RSTS over 
many years. DEC originally targetted "RSTS" (and some 
predecessors) for the educational environment where pro¬ 
tection from the curious and industrious student was a 
prime design criterion. Thus began the evolution of one of 
the most secure operating systems available today, tested 
by thousands of commercial users besides the generations of 
ingenious students that exposed numerous "holes" in the 
RSTS security blanket. Yet, now as your feelings of euphoria 
start to swell, with all this experience behind you (and your 
operating system), your confidence will surely be crashed by 
a repeated security breach. Why do such problems still 
arise? 

Security breachers obviously prefer to maintain a low 
profile. They cannot use privileged accounts (very often) for 
fear of being discovered by a simple SYSTAT listing. A short 
interlude with privilege can allow running the ONLPAT pro¬ 
gram to modify the RSTS monitor .SIL file. Once the system 
is subsequently rebooted, any changes become effective 
(and will remain in your system until your next SYSGEN). 

Extensive changes to the .SIL using ONLPAT are very 
unlikely. However, small changes can be made very quickly 
and unnoticably such as altering whether or not SYS() calls 
require privilege. A good example is for the intruder to make 
the UU.JOB ("create a job") UUO non-privileged. This allows 
any non-privileged user to run any program he wishes 
“logged-out". (Logged-out jobs are those that appear as 
[**,**] in SYSTAT.) These jobs always have privilege due to 
the JFNOPR bit in their keyword, therefore they have access 
to any system resources. The system manager can easily 
check for an alteration of this type and even make it auto¬ 
matically checked on system startup. The rest of this col¬ 
umn shows how you can go about it. 

When you issue a FIP SYS() call to BASIC-Plus or BASIC- 
PLUS-2, it is preprocessed and then passed to the RSTS mon¬ 
itor via the .UUO directive. Then the monitor finds an entry 
in the UUO function dispatch table, UUOTBL, based on byte 
2 of the passed string. The dispatch table contains the ad¬ 
dresses of the monitor routines which service each SYS() call 


and also a bit (bit 15) to signify whether or not privileges are 
required. ONLPAT is quite efficient at locating and changing 
UUOTBL. 

If someone modifies the UUOTBL entry for a privileged 
SYS() call to become non-privileged, a “trap-door" may be 
opened in the system. 

The BASIC-Plus program UUOLST below is a very simple 
way of displaying whether or not UUO's are currently set up 
as privileged. The current setting is compared with the stan¬ 
dard setting supplied with the distribution, and an asterisk 
is printed if a difference is detected. 

There are many different ways of accomplishing the 
same end as UUOLST. It can certainly be implemented to run 
faster in MACRO or BASIC-Plus-2. You might feel more com¬ 
fortable just running ONLPAT and displaying the contents 
of UUOTBL. Whatever your choice, make your procedure 
less obvious (or less conspicuously named) than "UUOLST" 
so that you lessen the chance that someone will figure it out 
and disable it. 

For those that are interested, the use of the message 
send/receive SYS() call to do an .XPEEK is demonstrated in 
line 2000. If you have a RSTS V7.0 system or earlier, .XPEEK 
is not available. Just use PEEKs to fetch each word of 
UUOTBL rather than the single .XPEEK. 

You could write a similar program to control system 
startup and issue UU.DIE if any discrepancies are detected. 
This is left as an exercise for the reader. Good luck 'til next 
time. 

SAMPLE PROGRAM 

14,8] UUOLST.BAS 

1000 & 

1 START OF MAIN & 

1 & 

PGM.NAMES = "UUOLST" 

\ PGM.VERS$ = "V7.1-01" * 

1 (. 

! DEFINE PROGRAM NAME AND VERSION & 

1 THIS PROGRAM REQUIRES RSTS/E V7.1 s, 

1100 ^ 

1 INITIALIZATION & 

* & 

CRLFS = CHR$(13%) + CHR$(10%) & 

\ PRINT 10%, PGM.NAMES + " • + PGM.VERSS + " " & 

+ RIGHT (SYS (CHRS (6%) + CHR$<9%)), 3%) (. 

\ PRINT #0%, "Software Techniques, Inc." & 

! & 

! SETUP SOME HANDY LITERALS * 

I IDENTIFY OURSELVES & 

1110 & 

1 MONITOR .SIL LOCATIONS & 

1 & 

I USE THE SONLPAT PROGRAM TO DETERMINE THE DECIMAL VALUE OF THE & 

! SUUOTB SYMBOL BELOW. THE SONLPAT COMMANDS ARE DEMONSTRATED BELOW. & 

! YOU MUST RECOMPILE THIS PROGRAM AND REPEAT THIS PROCEDURE EACH TIME & 

! YOU INSTALL A NEW MONITOR SIL. & 


& 

>RUN SONLPAT & 

Command file name? <LF> & 

File to patch? <LF> j, 

File found in account (0,11 & 

Module name? <LF> & 

Base address? 0 & 

Offset address? 0 & 

Base Offset Old New? & 
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1 

000000 000000 000106 ? SUUOTB* 

k 


, "UU.LOK", 

+17, 

"N", 

"WILDCARD DIRECTORY LOOKUP" 

k 

1 

Value = #075072, 31290. 

& 


, " ", 

+ 18, 

"P", 

■RESERVED" 

k 

1 

000000 000000 000106 ? “C 

k 


, "UU.CHE", 

+ 19, 

"N", 

"CACHE ENABLE/DISABLE" 

k 

1 


& 


, "UU.CNV", 

+ 20, 

"N", 

■CONVERT DATE/TIME TO ASCII" 

k 


UUOTBL% = 31290% 

& 


, "UU.SLN", 

+21, 

"P", 

"SET/CLEAR SYSTEM-WIDE LOGICAL NAMES" 

k 

\ 

UU.MIN% = -29% 

& 


, " ", 

+ 22, 

-P-, 

"RESERVED" 

k 

\ 

UU.MAX% = +28% 

k 


, "UU.SWP", 

+23, 

"P", 

"ADD/REMOVE SWAP, OVERLAY, ERROR MSG 

FILES" 

\ 

UUOSIZ% = (UU.MAX% - UU.MIN% + 1%) * 2% 

k 


, "UU.JOB", 

+ 24, 

"P", 

"JOB CREATION" 

k 

\ 

OPEN "NL:" AS FILE #1%, RECORDSIZE UUOSIZ% 

k 


, "UU.PPN", 

+25, 

"N", 

"WILDCARD PPN LOOKUP" 

k 

I 


k 


, "UU.SYS", 

+ 26, 

"N", 

"RETURN JOB STATUS INFORMATION" 

k 

1 

SET $UUOTBL VALUES FROM THE .SIL 

k 


» " ", 

+27, 

"N", 

"RESERVED" 

k 

1 

ALLOCATE AN I/O BUFFER TO RECEIVE .XPEEK DATA 

& 


, "UU.NME", 

+ 28, 

"N", 

"NAMED DIRECTORY HOOK" 

k 

2000 


k 







I 

MAIN CODE 

k 

28000 





k 

1 


& 

1 

FUNCTIONS 




k 


X$ = SYS(CHRS (6%)+CHR$(22%)+CHR$(4%) 

& 

1 





k 


+ CHR S (0%) 

k 


DEF FNUUODSP%(T%) 



k 


+ CHRS(UUOTBL%) + CHR$(SWAP%(UUOTBL%)) 

k 

\ 

FIELD #1%, 

<T% - 

UU.MIN%) * 2% AS DUMMYS, 1% AS X1S, 1% AS 

X2S k 


+ STRINGS(4%, 0%) 

k 

\ 

FNUUODSP% = 

ASCII (XI$) 

+ SWAP%(ASCII(X2S)) 

k 


+ CHR $ (1%) + CHR S(0%) 

k 

\ 

FNEND 




k 


+ CHRS(UUOSIZ%) + CHRS(SWAP%(UUOSIZ%))) 

k 

I 





k 

1 


& 

I 

FUNCTION TO 

RETURN UUOTBL ENTRY GIVEN THE UUO SUBFUNCTION 

k 

I 

XPEEK AT UUOTBL 

k 

1 

EXTRACT DATA FROM 

.XPEEK BUFFER 

k 




1 

RETURN AN INTEGER 


k 

2010 

RESTORE 

& 







\ 

PRINT #0%, 

k 

32767 

END 




k 


CRLFS 

& 








+ CRLFS + "Symbol SYS Privilege? 

Description" k 








+ CRLFS + " # Norm/Current 

& . 








+ CRLFS + "- - 

-- * 







\ 

FOR N% = UU.MIN% TO UU.MAX% 

& 

k 







\ 

READ UUO.SYMBOLS, UUO.SYS.NO%, PRIV.NORMS, UUO.DESCS 

k 







\ 

IF PRIV.NORMS = "P" 

& 








THEN PRIV.NORMS * "Yes" 

k 








ELSE PRIV.NORMS = "No" 

k 








RESTORE TO BEGINNING OF DATA 
PRINT REPORT HEADER 

FOR EACH POSSIBLE UUO SUBFUNCTION... 
READ IN ITS STANDARD INFORMATION 
CONVERT PRIVILEGED CHARACTER TO YES/NO 


IF 

THEN 

ELSE 


FNUUODSP%(N%) AND 1% 
PRIV.HERE $ = "Yes" 
PRIV.HERE$ = "No" 


ICONVERT "PRIVILEGE REQUIRED" BIT TO YES/NO 


IF PRIV.NORMS 

THEN ALERTS = "" 

ELSE ALERTS =• ■* 


PRIV.FERES 


ALERT THE USER IF PRIVILEGE SETTINGS DON'T MATCH .S1L 


2030 print #0%, USING "\ \ ### 

, UUO.SYMBOLS 
, UUO.SYS.NO% 

, PRIV.NORMS 
, PRIV.HERES 
, ALERTS 
, UUO.DESCS 


\ \ \ \ 
\ \ 


\ 

\ 

I 
1 
1 
1 

20000 

1 

1 


NEXT N% 

GOTO 32767 

PRINT A UUO SUBFUNCTION LINE 
CONTINUE IF MORE TO DO 
EXIT 


DATA STATEMENTS 


"UU.TB3", 

-29, 

"N", 

"MONITOR TABLES PART 3" 

k 

"UU.SPL", 

-28, 

"N", 

"ONE-SHOT SPOOLING REQUEST" 

k 

"UU.DMP", 

-27, 

"P", 

"ONLINE MONITOR SNAPSHOT" 

k 

"UU.FIL", 

-26, 

"N", 

"FILE UTILITY" 

k 

"UU.ATR", 

-25, 

"N", 

"READ/WRITE FILE ATTRIBUTES" 

k 

"UU.CCL", 

-24, 

"P", 

"CCL COMMAND ADD/DELETE" 

k 

" ", 

-23, 

"P", 

"RESERVED" 

k 

" ", 

-22, 

"P", 

■RESERVED" 

k 

" ", 

-21, 

"P", 

"RESERVED" 

k 

" " , 

-20, 

"P", 

"RESERVED" 

k 

"UU.LOG", 

-19, 

"P" , 

"SET NUMBER OF ALLOWED LOGINS" 

k 

"UU.RTS", 

-18, 

"P" , 

"RUN-TIME SYSTEM k RESIDENT LIBRARY CONTROL 1 

"UU.NAM", 

-17, 

"N", 

"SET FILE'S RUN-TIME SYSTEM NAME" 

k 

"UU.DIE" , 

-16, 

"P", 

"SPECIAL SHUTUP LOGOUT" 

k 

"UU.ACT", 

-15, 

"P", 

■ACCOUNTING INFORMATION DUMP" 

k 

"UU.DAT", 

-14, 

"P", 

"DATE/TIME CHANGER" 

k 

"UU.PRI", 

-13, 

"P", 

"PRIORITY, RUN BURST, MAXIMUM CHANGER" 

k 

"UU.TB2", 

-12, 

"N", 

"2ND PART OF MONITOR TABLES" 

k 

"UU.BCK", 

-11, 

"P", 

"BACKUP FILE ACCOUNTING CHANGER" 

k 

" ", 

-10, 

"P", 

"RESERVED" 

k 

"UU.HNG", 

-9, 

"P", 

"HANGUP/ENABLE A DATASET" 

k 

"UU.FCB", 

-8, 

"N", 

"GET FCB/DDB INFORMATION" 

k 

" ", 

-7, 

"P", 

"RESERVED" 

k 

"UU.POK", 

-6, 

"P", 

"POKE MONITOR MEMORY" 

k 

" ", 

-5, 

"N", 

"RESERVED" 

k 

" ", 

-4, 

"P", 

"RESERVED" 

k 

"UU.TB1", 

-3, 

"N", 

"1ST PART OF MONITOR TABLES" 

k 

"UU.NLG", 

-2, 

"P", 

"SET NUMBER OF ALLOWED LOGINS TO 1" 

k 

"UU.YLG", 

-1, 

"P", 

"SET NUMBER OF ALLOWED LOGINS TO MAXIMUM" 

k 

"UU.PAS", 

+0, 

"P", 

■CREATE AN ACCOUNT" 

k 

"UU.DLU", 

+ 1, 

"P", 

"DELETE AN ACCOUNT" 

k 

"UU.CLN", 

+ 2, 

"P" , 

"CLEAN A DISK PACK" 

& 

"UU.MNT", 

+3, 

"P", 

"DISK PACK MOUNT/DISMOUNT" 

k 

"UU.LIN", 

+ 4, 

"P", 

"LOGIN" 

k 

"UU.BYE", 

+5, 

"P", 

"LOGOUT" 

k 

"UU.ATT", 

+6, 

"P", 

"ATTACH" 

k 

"UU.DET", 

+7, 

"P", 

"DETACH" 

k 

"UU.CHU", 

+ 8, 

"P", 

"CHANGE PASSWORD/QUOTA" 

k 

"UU.ERR", 

+9, 

"N", 

"GET ERROR MESSAGE TEXT" 

k 

"UU.ASS", 

+ 10, 

"N", 

"ASSIGN" 

k 

"UU.DEA", 

+11, 

"N", 

"DEASSIGN" 

k 

"UU.DAL", 

+ 12, 

"N", 

"DEASSIGN ALL" 

k 

"UU.ZER", 

+13, 

"N", 

"ZERO DEVICE" 

k 

"UU.RAD", 

+ 14, 

"N", 

"READ ACCOUNTING INFORMATION" 

k 

"UU.DIR", 

+ 15, 

"N", 

"GET DIRECTORY INFORMATION" 

k 

"UU.TRM", 

+ 16, 

"N", 

"SET TERMINAL CHARACTERISTICS" 

k 


Picture Your Disk Files 




The next time your system is thrashing around, 
remember this: you could be losing up to 
50 percent* of your performance due to 
fragmented files. 

DISKIT provides you with all the tools you need to 
create and manage well-structured disks. Use 
DISKIT to race through backup at 10,000 
blocks/minute as it optimizes your disks. 

Plus, DISKIT includes four other tools which help 
you improve system security, programmer 
productivity, and system performance. 

For more information on this amazing product, 
please write or call. 


• Based on information supplied by our customers. 

Software 

Techniques 
Incorporated 

Business tools for the work of man. 


5242 Katelia Avenue 
Lob Aiemitoe. CA 90720 
United States 
Phone: [714] 995-0533 


74/76 Northbrook Street 
Newbury. Berkshire RG13 1AE 


Phone: 44 [O] 635 30840 
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Going from RSTS/E to VAX/VMS? 

MIGRAID3 
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SAMPLE OUTPUT 


can help get you there. 

MIGRAID3 tm USERS WITH A RSTS/E 
DISK PACK MOUNTED AS A 
“FOREIGN” VOLUME UNDER VMS CAN 


• TRANSFER RMS-11 FILES 
DIRECTLY TO VMS, READY 
TO USE 

• COPY ASCII STREAM FILES 
DIRECTLY TO RMS-32 SEQUENTIAL/ 
VARIABLE FORMAT 

• TRANSFER VIRTUAL ARRAYS 
AND BLOCK I/O FILES, READY 

TO OPEN ORGANIZATION VIRTUAL 


MIGRAID3 SUPPORTS RSTS/E WILD¬ 
CARDS FOR BULK COPIES, AND 
OFFERS A COMPREHENSIVE DIREC¬ 
TORY FACILITY TOO! 

$800 (U.S.) Single-CPU license; 

QDA/OEM terms available. 



COMPUTER METHODS CORPORATION 

P.O. BOX 592 
MOORESTOWN, NJ 08057 
(609) 778-8440 


RSTS and VAX/VMS are registered trademarks of Digital Equipment Corporation. 


Symbol SYS Privilege? Description 

• Norm/Current 


UU.TB3 

-29 

No 

No 

MONITOR TABLES PART 3 

UU.SPL 

-28 

No 

No 

ONE-SHOT SPOOLING REQUEST 

UU.DMP 

-27 

Yes 

Yes 

ONLINE MONITOR SNAPSHOT 

UU.FIL 

-26 

Yes 

No * 

FILE UTILITY 

UU.ATR 

-25 

No 

No 

READ/WRITE FILE ATTRIBUTES 

UU.CCL 

-24 

Yes 

Yes 

CCL COMMAND ADD/DELETE 


-23 

Yes 

Yes 

RESERVED 


-22 

Yes 

Yes 

RESERVED 


-21 

Yes 

Yes 

RESERVED 


-20 

Yes 

Yes 

RESERVED 

UU.LOG 

-19 

Yes 

Yes 

SET NUMBER OF ALLOWED LOGINS 

UU.RTS 

-18 

Yes 

Yes 

RUN-TIME SYSTEM k RESIDENT LIBRARY CONTROL 

UU.NAM 

-17 

No 

No 

SET FILE'S RUN-TIME SYSTEM NAME 

UU.DIE 

-16 

Yes 

Yes 

SPECIAL SHUTUP LOGOUT 

UU.ACT 

-15 

Yes 

Yes 

ACCOUNTING INFORMATION DUMP 

UU.DAT 

-14 

Yes 

Yes 

DATE/TIME CHANGER 

UU.PRI 

-13 

Yes 

Yes 

PRIORITY, RUN BURST, MAXIMUM CHANGER 

UU.TB2 

-12 

No 

No 

2ND PART OF MONITOR TABLES 

UU.BCK 

-11 

Yes 

Yes 

BACKUP FILE ACCOUNTING CHANGER 


-10 

Yes 

Yes 

RESERVED 

UU.HNG 

-9 

Yes 

Yes 

HANGUP/ENABLE A DATASET 

UU.FCB 

-8 

No 

No 

GET FCB/DDB INFORMATION 


-7 

Yes 

Yes 

RESERVED 

UU.POK 

-6 

Yes 

Yes 

POKE MONITOR MEMORY 


-5 

Yes 

No * 

RESERVED 


-4 

Yes 

Yes 

RESERVED 

UU.TB1 

-3 

No 

NO 

1ST PART OF MONITOR TABLES 

UU.NLG 

-2 

Yes 

Yes 

SET NUMBER OF ALLOWED LOGINS TO 1 

UU.YLG 

-1 

Yes 

Yes 

SET NUMBER OF ALLOWED LOGINS TO MAXIMUM 

UU.PAS 

0 

Yes 

Yes 

CREATE AN ACCOUNT 

UU.DLU 

1 

Yes 

Yes 

DELETE AN ACCOUNT 

UU.CLN 

2 

Yes 

Yes 

CLEAN A DISK PACK 

UU.MNT 

3 

Yes 

Yes 

DISK PACK MOUNT/DISMOUNT 

UU.LIN 

4 

Yes 

Yes 

LOGIN 

UU.BYE 

5 

Yes 

Yes 

LOGOUT 

UU.ATT 

6 

Yes 

Yes 

ATTACH 

UU.DET 

7 

Yes 

Yes 

DETACH 

UU.CHU 

8 

Yes 

Yes 

CHANGE PASSWORD/QUOTA 

UU.ERR 

9 

No 

No 

GET ERROR MESSAGE TEXT 

UU.ASS 

10 

No 

No 

ASSIGN 

UU.DEA 

11 

No 

No 

DEASSIGN 

UU.DAL 

12 

No 

No 

DEASSIGN ALL 

UU.ZER 

13 

No 

NO 

ZERO DEVICE 

UU.RAD 

14 

No 

No 

READ ACCOUNTING INFORMATION 

UU.DIR 

15 

No 

NO 

GET DIRECTORY INFORMATION 

UU.TRM 

16 

No 

No 

SET TERMINAL CHARACTERISTICS 

UU.LOK 

17 

No 

No 

WILDCARD DIRECTORY LOOKUP 


18 

Yes 

Yes 

RESERVED 

UU.CHE 

19 

Yes 

NO * 

CACHE ENABLE/DISABLE 

UU.CNV 

20 

No 

No 

CONVERT DATE/TIME TO ASCII 

UU.SLN 

21 

Yes 

Yes 

SET/CLEAR SYSTEM-WIDE LOGICAL NAMES 


22 

Yes 

Yes 

RESERVED 

UU.SWP 

23 

Yes 

Yes 

ADD/REMOVE SWAP, OVERLAY, ERROR MSG FILES 

UU .JOB 

24 

Yes 

Yes 

JOB CREATION 

UU.PPN 

25 

No 

No 

WILDCARD PPN LOOKUP 

UU.SYS 

26 

No 

No 

RETURN JOB STATUS INFORMATION 


27 

No 

No 

RESERVED 

UU.NME 

28 

No 

No 

NAMED DIRECTORY HOOK 
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WRITING A RUN-TIME SYSTEM 
(or Happiness in the HISEG) 

. . . continued from page 31 

top end of the users address space. One way to do this is as 
follows; we put the psudeo-vectors in a psect called '.99998'. 
The faithful task builder (who loves putting psects in alpha¬ 
betical order) will force this psect to the end of our partition, 
after all the other rts code. Now we have the vectors at the 
end of our code, but in order for the rts to work, the last 
word in the vector region must land at (octal) 177776. This 
means that the vectors must begin at 177732: so, we put a 
dummy' psect (with nothing in it) just before the psudeo- 
vector region. That psect is called ‘.99997.’ Now we can use 
the EXTSCT (extend section) option of the task builder to 
force our psudeo-vectors to start at just the right place. Un¬ 
fortunately. this method requires two task builds; one with 
an EXTSCT of zero, so we can calculate how much to extend 
the dummy psect, then another with the EXTSCT option 
plugged in to actually get the rts to line up. Next the entire 
mess is run through MAKSIL, which adds a symbol table to 
the code and through some other black magic, actually 
builds the rts. Since this task build procedure leaves lots of 
room for human error (and since I'm quite lazy) I use a sys¬ 
tem of 2 ATPK command files, and a TECO macro to build the 


rts. The first command file builds the rts with an EXTSCT of 
zero, then runs the TECO macro. The TECO guy looks at the 
TKB map of the rts, finds out where the psudeo-vector psect 
actually starts, and calculates what the EXTSCT parameter 
should be for the psudeo-vectors to line up. It then edits the 
SECOND command file, plugging in the newly figured EX¬ 
TSCT value. (Please keep in mind that TECO isn’t a sup¬ 
ported product...) We then execute the second command 
file to task build the image with the new EXTSCT value, 
then run it through MAKSIL. Figure 1 shows the first com¬ 
mand file, Figure 2 is the TECO macro, Figure 3 is the second 
command file. 

Using the rts. 

In order to enter the new rts. you can do one of two 
things; you could SWITCH to it with the switch cusp (or just 
execute the switch rts sys call), or you could run a program 
which has been NAMED to that rts. For example: 

Ready 

SW OSCAR 
Welcome to OSCAR 
[Exit] 

Ready 


. . . continued on page 56 
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IT'S 3:15 PM 
MONDAY 

Tired of writing depreciation journals in 
3,5;GL, your third assistant bookeeper 
just discovered the joys of 4,0;PAY. 

He's on his way from the bank 
to the airport. 


LOTS OF LUCK! 


IT'S 2:28 AM 

The kid with his auto-dial MODEM 
justfound your"new" dial-in number 
555-0112 on the 112th try. 

He's in and you are out. 


LOTS OF LUCK! 



Software 

Product 

Description 

Product Name: LOCK-11 Version 2.3 
Description: 

Lock-11 is a security superstructure built upon the standard RSTS password 
structure that provides the following extensions: 

• Full V7.1 support 

• USERID implementation for Dial-in, Packet and Concentrators. 

• Macro DPY — a rewrite of VT5DPY for VT100 s. interfaced with security 
file and featuring a repertoire of ‘UT type commands for system 
managers. 

• First release of SAFE-11, a menu’ environment (KBM/RTS) that keeps 
non-privileged users where they belong. 

• Absolute control of system access by keyboard. Manager may limit any 
keyboard to certain accounts or groups of accounts and control time as 
well as day of week access. 

• Password knowledge is no longer carte blanche system access. System 
detects unauthorized use of passwords. Privileged passwords don’t work 
on non-privileged keyboards. Non-privileged passwords work only on 
specified keyboards. 

• Real time system surveillance. Manager specifies a list of alarm 
keyboards which log all infractions and probes as they happen. Opser is 
not required. 

• Auto-login (with or without password) and chain with specified core com¬ 
mon contents by KB. 

• Manager may establish special priority/burst settings by KB. Manager 
may establish default output protection code. @ assignment and up to 
three specific user logicals for each KB. Default RTS is also selectable. All 
assignments are made at log-in. 

• Manager specifies a list of console keyboards from which security file 
editor may operate. 

• Manager may define a KB-specific access-denied message. 

• Manager may specify number of retries before access-denied and number 
of access-denied messages before line disable. Hangup on access denied is 
optional. All above may be specified on a per-kb basis. 

• A macro DYNPRI program is included which performs the following func¬ 
tions: 

• Users may be dispatched into ten separate priority queues, separately 
tunable on-line. Each queue has ten levels. Queues are selectable by 
KB. 

• DYNPRI detects hibernating jobs and announces the fact on ALARM 
keyboards. Privileged jobs hibernating cause extra loud and long 
alarms. 

• DYNPRI produces almost no load in operation and runs in 5K words. 

• DYNPRI will hold up to fourteen files open for performance purposes. 

• DYNPRI will kill hibernating jobs in up to ten [p. *] or [p.pnjs 
Minimum Hardware/Software Required: 

Any valid RSTS/E system running Version 7.0 or later. Any version of RSX 
emulation is needed. 

Support: See License Agreement 
Installation: User Installed 
Ordering Information: 

Available on 9 track 800 or 1600 BPI tape. Multiple CPU discount schedule: 
First license 0% discount 

Second thru Fourth license 40% discount 

Fifth thru Twentieth license 70% discount 

Licensed users desiring source code for internal use only must execute a 
separate Program Sources License Agreement. Sources are available at ten 
times the initial license fee. 

License Fee: 

Single CPU license: $1250.00. Annual maintenance at 12% of current list 
price. 

Contact: 

Dave Mallery 
Nationwide Data Dialog 
215-364-2800 
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Of: 


PIP JUNK.TSK/RT:OSCAR (any executable program will do for now) 

Ready 

RUN JUNK.TSK 

Oscar doesn’t RUN programs yet... 

[Exit] 

Ready 

Next issue I'll attempt to show how to read the ex¬ 
ecutable code (in this case JUNK.TSK) and even allow it to 
execute, and how to use the run-time system debugging 
tool, RTSODT. If you thought ODT was a blessing, wait till 
you see RTSODT... 

Enjoy! 


Yes Virginia, there is a Macro Man! 

Call 

MACRO MAN 

for superior performance 

• RSTS Internals • 

• Custom Macro Programming • 

• RSTS or 11M • 


LEARN MACRO FROM THE MASTER! 
Seminars available — call for details. 

MACRO UTILITY LIBRARY 
Available now — call for information. 

Also Available Now — 

VAX MACRO Consulting 


RSTS/E 

MACRO PROGRAMMING COURSE 
To Be Given 

September 13 — September 17 
in 

Philadelphia 


Bob Macro Man’ Meyer 
9 Lockwood Avenue, Fieldsboro, NJ 08505 
609-298-9127 
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| 1,12] OSCAR . MAC 


.title oscar a demo run-time system 
.ident /I .0/ 

.enabl lc 

.•define some things ir. the loseg 

kbarca >=2000 ;kb buifer 


define some directives fc rsts locations 


xrb 

= = 442 



.•address of xrb 

f irqb 

==402 



.•address of firqt 

.exit 

==104046 


;cxit directive 

.write 

==104004 


;write directive 

; 

;detine 

some text 



.psect 

text 




nevmsg: 

.asciz 

/Vie 1 come 

to OSCAR/c15><12> 

runmsq: 

.asciz 

/Oscar dosen’t RUN 

programs yet.../<15><12> 

exiirsg: 

.asciz 

/fFxit]/<15><12 N 


.psect 

code 




new:: 

mov 

12000,sp 


.•setup user stack 


mov 

•newmsg. 

rO 

;poiht to message to be printed 


call 

print 


;and print it 


br 

exit 


;then exit 

run:: 

mov 

•2000,sp 




mov 

•runmsg. 

rO 

.•point to message 


call 

print 


;go print it 


br 

exit 



exit: 

mov 

leximsg. 

rO 



call 

print 




.exit 




.page 
.sbtt1 

define 

pseudo-vectors 


•bits ii 

i p.flag 




.asect 


400 



PF.KBM: 

. BLKB 


;RTS IS A 

KEYBOARD MONITOR 

PF.1US: 

. BLKP 


;RTS ALLOWS ONLY 1 USER (NO SHARING) 

PF.PW: 

.BLKB 


;RTS WANTS 

TO RUN MAPPED READ/WRITE 

PF.NER: 

.BLKB 


;RTS DOESN 

•T WANT ITS ERRORS LOGGED 

PF.REM: 

.BLKB 


;UNCONDITIONAL REMOVE FROM MEMORY ON EXIT 

PF.CSZ: 

.BLKB 


;RUN SIZE 

IS COMPUTED FROM FILE SIZE 

PF.SLA: 

.BLKB 

. ;(SAVE THE 

LOAD ADDRESS, M.PHYA) 

PF.EMT: 

.BLKB 


;RTS WANTS 

EMT CODE IN LOW BYTE AS A PREFIX 

.macro 

vector 

at, to 




= • 

ve+at-p.off 



.word 

to 



.endm 

vector 




.psect 

.99997 




.psect 

.99998 




ve:: 





o.flag 

“ 

pf.kbm ! 

pf .ner 

;say we're a keyboard monitor, 

;and we don’t wish to log any errors 

o.dext 

BE 

"RBOB 


;default runnable extention for this i 

o.msiz 

« = 

1 


.•minimum size for jobs under this rts 

o.size 


24. 


.•maximum size " " " " " 


vector 

p. flag,o 

.flag 



vector 

p.dext, o 

.dext 



vector 

p.isiz,o 

.msiz 



vector 

p.msiz.o 

.msiz 



vector 

p. fis,exit 



vector 

p.eras,exit 



vector 

p.strt,exit 



vector 

p. new,new 



vector 

p.run,run 



vector 

p.bad,exit 



vector 

p.bpt,exit 



vector 

p.iot,exit 



vector 

p.emt,exit 



vector 

p. trap,exit 



vector 

p.fpp,exit 



vector 

p.cc,exit 



vector 

p.2cc,exit 



vector 

p.size,o. 

.size 


pvend:: 





.asect 


177776 




. BLKK 

-1 

UNAVAILABLE WORD 

P.SIZE: 

. BLKK 

-1 

MAX SIZE 

FOR A USER'S IMAGE IN K 

P.2CC: 

.BLKK 

-1 

ADDRESS OF 2 C'UICK CONTROL/C'S 

P.CC: 

. BLKV. 

-1 


CONTROL/C TRAPPING 

P.FPP: 

.BLKK 

-1 


@244 TRAPS (FPP) 

P.TRAP: 

.BLKK 

-1 


@34 TRAPS (TRAP) 

P.FMT: 

. BLKK 

-1 


@30 TRAPS (NON-MONITOR CALL) 

P.JOT: 

. BLKV.' 

-1 


@20 TRAPS (IOT) 

P.BPT: 

.BLKK 

-1 


@14 TRAPS (ODT OR T-BIT) 

P.BAB: 

. BLKK 

-1 


BAD ERROR RECOVERY 

P.RUN: 

. BLKK 

-1 


ENTRY TO RUN A NEW PROGRAM 

P.FEW: 

. BLKK 

-1 


A NEW ENTRY 

P.STRT: 

.BLKK 

-1 


SYSTEM START 

P.CRAS: 

• BLKK 

-1 


CRASH RECOVERY 

P.FIb: 

.BLKK 

-1 


@244 TRAPS (FIS) 

P.MSIZ: 

. BLKK 

-1 

MIN SIZE 1 

FOR A USER'S IMAGE IK K 

P.ISIZ: 

.BLKV. 

-1 

(HISTORICAL...) 

P.PEXT: 

. BLKV. 

-1 

DEFAULT EXECUTABLE EXTENSION (F.AD50) 

F.FLAG: 

.BLKK 

-1 

FLAG WORD 

DESCRIBING THE PIS 


.BLKV. 


DUMMY TO GET BACK TO THE 

F.OFf: 

.end 

new 

STARTING 

ADDRESS OF THESE "VECTORS" 


FIGURE 1 




















Take a look at 



1982 Conference 
And Exposition 
For DEC Users 


Boston Park Plaza 
and Plaza Castle 
October 4 - 6, 1982 

Sponsored by Independent RSTS Users Society (IRUS) 
and Hardcopy Magazine 



THE CONFERENCE 

Consisting of a program of seminars, workshops, and panel discussions on aspects of RSTS, VAX, other operating systems and languages. Seminars 
will examine the influence of microcomputers, communications, and distributed processing on the DEC users, and a look will be taken at the current and 
future trends in DEC-compatible software and hardware technology. 

Ran to attend if you are an analyst, system manager, project leader, or data processing manager, and you need information and ideas from the DEC 
world. 


THE EXPOSITION 

A gathering of exhibitors of software, hardware, and services who specifically want to meet the DEC user community. The schedule has been designed 
to bring together exhibitors and attendees in a relaxed social setting, in addition to appealing to that walk-in market that a city like Boston can attract 
because of its importance to the East Coast market. 

Ran to exhibit if your organization will benefit from being part of a DEC-compatible conference which encourages contact between vendor and user. 


Exposition management under the direction of Dame Associates , Inc. Boston , MA 


To: DAME ASSOCIATES, INC. 

51 Church Street, Boston, MA 02116 
(617)482-0097 


Name . 
Title _ 


Company . 


Product/Service. 


□ Rease send full details when available on how I can register to attend the 

IRUS 82 Conference & Convention 

Li Please send full details on how our company can reserve exhibit space at the street Address. 

IRUS 82 Exposition 


City. 


Postal Code/Zip . 


. Country. 


For further information on attending the conference, contact IRUS, 3657 Boston Post Road. Suit 4, Warwick, R.l. 02886 (401) 738-4430 
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Word Processing Terminals 

Decword Software 
PDP-11 /23, RL02 Systems 

Other DEC terminals, components, 
and systems in stock £ 7 

Spartin Systems 

713 / 496-0771 

_ 14925-A Memorial * Houston, Texas 77079 _ 
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GOOD NEWS 
FOR SCHOOLS 


FINAR Introduces 
A New Educational Discount: 

100% OFF 

LIST PRICE 


FINAR - The financial modeling language that is used by hundreds 
of commercial enterprises around the world is now available to 
universities, colleges, and other educational institutions. 


• Your finance office can use it for budgeting, cash flow 
forecasting, and other accounting tasks. 

• Your business school can give students experience with 
a state of the art financial modeling system. 

• Your professors can use it to do research and consultancy. 


HERE IS OUR OFFER: 

FINAR is normally sold for $18,500.00 to commercial enterprises. These 
firms also pay an annual fee of 10% for maintenance and support of the 
product. We will provide your school with the software for free. Your 
school, on an annual basis, will pay only the $1,850 maintenance fee 
normally charged to our commercial accounts. 

If your school has a PDP-11/RSTS or VAX/VMS computer system and 
you want to take us up on this offer call or write: 

James B. Hotze & Co. 

3303 South Rice Avenue, Suite 208 
Houston, Texas 77056 
o (713) 960-0848 
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(1,12) PRINT.MAC 


.title print 
.ident /1.0/ 


i print, hc 

iprint routine for oscer.rts 
) 

lto use: 

I iiiov Ietrin 9 ,r 0 

I call print 

iwhere: 

l string is the address of the sscis string to be printed 


.psect code 

print:: aov rl,-(sp) jget a register 


■ov 

r2,-(sp) 

>or 2 

mov 

r0,rl 

issve pointer to string 

tstb 

(r0)* 

;find null byte et end of i 

bne 

109 

sub 

rl, rO 

jealc length of string 

■ov 

tsrb,r2 

tpoint to srb 

■ov 

r0,(r2) ♦ 

;put in length of string 

■ov 

r0,(r2) ♦ 

itwics 

■ov 

rl,(r2) ♦ 

jpoint to string 

clr 

(r 2) ♦ 

jchsnnel to print to 

clr 

(r2) ♦ 

>lsb block (for disk flits; 

clr 

(r2) ♦ 

iwsit tias 

clr 

(r2>* 

modifiers 

.write 


jdo tbs writs 

■ov 

(sp)+,r2 

irsstore everything 

■ov 

(sp)4,rl 


rts 

PC 

:return to caller 


.end 


FIGURE 2 


1 

lprimary tkb cmd file for oscar.rts 
1 

Sallow no errors 
mac oscar-oscar 
run Stkb 

oscar/-hd,oscar/-wi/ma,oscar-oscar 
print 

/ 

extset-.99997:0 
stack-0 

par-oscar:160000:20000 

// 

run oscar.tec 
S§ oscar2 


FIGURE 3 


[1,12] OSCAR.TEC 


I 

Iteco macro to align oscar.rts 
I 

SS@*a/Working.../ 

@er/oscar.map/ 

5<a> 

:@8/.99999:/"u @s/.99998:/' 
8s/~ed/ r 
*o 

\ua lsave end of rtsl 
@*a/new EXTSCT is: / 

177732-qa ua 


@eb/oscar2.cmd/ 


y 

@s/extsct/ 

@s/:/ 


k 

qa\ 

§i/ 

/ 

@ex// 

SS 


1 

I 

1 


FIGURE 4 


(secondary tkb cmd file for oscar.rts 
1 

Sallow no errors 
run Stkb 

oscar/-hd,oscar/-wi,oscar-oscar 
print 

/ 

extset-.99997:17516 
8tack-0 

par-oscar:160000:20000 

// 

Sallow fatal errors 
ut remove oscar 
Sallow no errors 
run Smaksil 
oscar/rts 

no 


FIGURE 5 
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SET/CLEAR 

TAB 


CLEAR ALL 
TABS 


TOGGLE yrsjk 


UNE/LOCAL 


SETUP A/B 
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Your time is money 


Every second you spend programming 
costs you money. Our DEC-compatible software 

gets you faster answers and more productivity 
with lower programming costs. 

Take EasyEntry, our forms management 
and data entry system for the PDP-11 and VAX. 
You design and implement forms on-screen — in 
hours instead of days. 


It can be used as your complete data processing 
system. 

And we have three more software solutions 
to save you time and money: AIS-PL/I, a multi¬ 
purpose language for the PDP-11 and VAX; 
BURCOM-11, our exclusive Burroughs-DEC 
communications link and WP Saturn, a powerful 
word and list processor for the PDP-11 and VAX. 


But you don't sacrifice versatility for speed. 
EasyEntry is powerful enough to handle complex 
tasks like transaction processing and data retrieval 



Applied Information Systems — we get 
you the information you need. When you need it. 


applied information systems, inc. 


500 Eastowne Dr.,/Suite 207/Chapel Hill, NC 27514/919/942-7801 
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THE RSTS CRYSTAL BALL — Part 2 

By Michael C. Greenspon, Integral Information Systems, Los Angeles, California 

No portion of this document may be reproduced for profit without the express 
written permission of Integral Information Systems. 

The information in the document is believed to be accurate and correct, however In¬ 
tegral Information Systems assumes no liability for any errors which may appear in this 
document, or any changes which may occur in the described software. 


Welcome once again. This month the Crystal Ball has 
news of interest to all RSTS programmers, so even if you 
don't use MACRO-11. read on. I’ll be telling you how to use 
some of the new undocumented monitor features from 
BASIC. Also, you should be preparing to install RSTS version 
7.2, and I have more notes and details on new structures in 
7.1 and later. 

ERRATUM 

First, though, I’d like to correct a minor error in the last 
issue. In the disassembly listing of the .XPEEK code, the 
comments indicate that .XPEEK cannot be used to examine 
run-time systems or resident libraries. This is simply a case 
of "reading the wrong bit" (see the BIT BITWRD(R2), # 14). 
What is really being tested there is non-existent memory or 
locked out memory. The .XPEEK call will peek at run-time 
systems and reslibs with no problem, but remember, you 
must check and make sure that they are resident. Even with 
such a check, timing problems could pop up, so this is not 
recommended for heavy use. The best application for 
.XPEEK is looking at monitor memory and other entities for 
which residency can be guaranteed. I'll have more on 
.XPEEK and its uses later in this article. 

MONITOR FIXES 

As I mentioned last time, there is a nasty bug in 
UU.TRM. I was assured at DECUS that the problem was 
“Fixed in the source in 7.2," however if you will be running 
7.1 for any length of time, you may want to install this 
patch. As far as I know, it causes no problems, and we are 
currently running 7.1 with it. It is possible that it could con¬ 
flict with future DEC patches; however, chances are there 
will be no more patches for V7.1. 

Note that the command file installs two patches sep¬ 
arately so that ONLPAT won’t complain about a patch span¬ 
ning OVR and another module. ALWAYS install the patch in 
the order listed. This patch replaces several lines of code 
which were ",.. accidentally deleted when the code was 
edited." The patch is as follows: 

File to patch? <LF> 

Module name? RSTS 
Base address? PATCH 
Offset address? < LF> 


Base 

Offset 

Old 

New? 

777m 

000000 

000000 

? M0VI0046 

mm 

000002 

000000 

? BITBI2761 

777m 

000004 

000000 

? 1 

777m 

000006 

000000 

? DDJBNO 


777 m 

000010 

000000 

? BNEI22 

777 m 

000012 

000000 

? M0VI0246 

777m 

000014 

000000 

? M0VI0346 

777m 

000016 

000000 

? CLRIOO 

777m 

000020 

000000 

? M0VBI6100 

77777? 

000022 

000000 

? DDUNT 

777 m 

000024 

000000 

? ASLIOO 

777m 

000026 

000000 

? M0VI2737 

777m 

000030 

000000 

? PR5 

777m 

000032 

000000 

?PS 

777m 

000034 

000000 

? JSRI537 

777 m 

000036 

000000 

? CALLMI 

777m 

000040 

000000 

? SETPRM 

777m 

000042 

000000 

? KBDAP5 

777m 

000044 

000000 

? M0VI2737 

777m 

000046 

000000 

? PR3 

777 m 

000050 

000000 

?PS 

777 m 

000052 

000000 

? MOV!2603 

777m 

000054 

000000 

? M0VI2602 

777m 

000056 

000000 

? M0VI2600 

777m 

000060 

000000 

? INCBI64 

777m 

000062 

000000 

? 20 

777m 

000064 

000000 

? RTS107 

777m 

000066 

000000 

? 1C 

File to patch? <LF> 

Module name? OVR 

Base address? TRM1 

Offset address? 160 


Base 

Offset 

Old 

New? 

777 m 

000160 

105264 

? JSR!737 

777 m 

000162 

000020 

? PATCH 

777m 

000164 

001020 

? 1C 


MONITOR OVERLAY TABLE 

In the last issue, I mentioned the possibility of a 
monitor overlay table. I have since had the time to play with 
a running 7.1 system and confirm all of my suspicions about 
this phantom table. The definitions for the structure can be 
found in KERNEL.MAC, however I will detail it in a moment. 
First, a little history and explanation of monitor overlays. 

Before version 7.1, modules were made resident or non¬ 
resident at link time. The FIP phase was linked before OVR, 
with any resident modules included. OVR was then linked 
against FIP’s symbol table to resolve module addresses, etc. 
INIT’s load routines loaded all of FIP at startup, and the resi¬ 
dent modules along with it. 

In 7.1 and later, CONFIG.MAC defines symbols in the 
form xxxRES where ”xxx" is the name of the module to be 
made resident (SND, DIR, etc.) These symbols are globalized 
in TBL.MAC, and built into the overlay table at the beginning 
of the OVR phase. At link time, all modules, whether they 
are to be memory resident or not, are linked into OVR. All 
that determines if the module is resident is a bit in the 







When your computer system is 
down, you feel it. Tymshare’s 
prompt emergency response will 
have your computer installation 
healthy in short order. To keep your system 
operating efficiently we will prescribe a 
custom preventive maintenance program 
which will insure maximum availability at the 


lowest possible cost. 

Why not investigate the benefits that Tym- 
share computer maintenance can offer you. 

For more information on how our 
maintenance programs will best fit your 
needs, call.... 



COMPUTER SYSTEMS and SUPPORT DIVISION 



EAST: 10111 George Palmer Hwy. / Bowie, Md 20716/301) 459-8363 
CENTRAL: 11999 Katy Freeway / Houston, Tx 77079 / (713) 870-0923 
WEST: 3300 Capital Avenue / Fremont, Ca 94538 / (415) 794-2538 
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Li Kgs 

ACCOUNTING TWO* 


Financial Software for RSTS / E 

General Ledger Accounts Receivable 

Accounts Payable Installed and proven in Canada 
and the USA. 

Flexible reporting structure and formatting 

System adapts to the end user 

Table driven software 

Changes made easily 

Multi-level accounting 

Allows varying methods of branch and company consolidation 

Menu selection 

Easy to use 

Fully documented 

Easy to learn 

Rental plan also available 

Conserve your capital budget 

For your Management Overview phone, write, or circle the reader card 

IAS 6080 Young Street 

Computer Suite 401 

Corporation Halifax. Nova Scotia 

Limited B3K 5L2 

Contact: G. Patrick Hunt Director of Marketing 


' Proprietary Product of IAS Computer Corporation Limited 
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overlay table. As I will demonstrate, this bit can be easily 
changed, and module residency can be modified without do¬ 
ing a new SYSGEN. 

As I described in the last issue, startup under 7.1 is 
quite a bit different, due to the module residency scheme. 
I NIT loads the permanently resident portion of the monitor. 
When RSTS gains control, it dispatches to an internal FIP 
function called STA. STA is hidden in the module LOD in the 
OVR phase. STA scans the overlay table and loads any mod¬ 
ules marked as being memory resident. 

STA makes no checks for what is normally allowed to 
be resident, therefore it is possible to make any module resi¬ 
dent by patching the table. I brought up a 7.1 system with 
EVERY module (except LOD. which is only used once) resi¬ 
dent, and the system ran just fine. True, I had a 62K 
monitor, but... In any case, the advantage in making 
modules other than the standard ones resident is minimal, 
except in special cases. 

The overlay table can be found at the very beginning of 
OVR (base 2000 octal) and is comprised of a table header, 
followed by a list of module headers, one per module. Each 
module header contains the description of each of the over¬ 
lays contained in the module. (Currently, this is only the 
length of the overlay.) The exact format is as follows: 

Overlay Table Header 


Offset 


Octal 

Mnemonic 

Description 

0 

OTHFOR 

Format number, currently 0 

2 

OTHREV 

Revision number, currently 0 

4 

OTHSIH 

Table header size, currently 12 octal 

6 

OTHSIM 

Size of each module header, currently 6 

10 

OTHSIO 

Size of each overlay entry, currently 2 

Module Header 


(Immediately follows Overlay Table Header) 


(Table terminated with a fullword 0) 

Offset 

Octal 

Mnemonic 

Description 

0 

OTMNAM 

Module name (RAD50) or 0 for end 

2 

OTMFLG 

Module flag word, see below 

4 

OTMNUM 

Number of overlays in this module 


Overlay Entries 

(OTMNUM of these immediately follow Module Header) 

Offset 

Octal Mnemonic Description 

0 OTOLEN Length of this overlay 

Currently, there is only one bit defined in OTMFLG. Its 
name is OTFRES, and, if set, indicates that the module is 
memory resident. This is the magic bit to toggle. Since the 
table is rather long, it can be a hassle to use ONLPAT to find 
the module name. I have written a program called ONLRES 
(listed at the end of the article) which can be used to change 
OTFRES for any module in the table. 

Please note that although the changes can be made on¬ 
line to the installed SIL, they will not take effect until the 
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system is re-booted. Also. INIT is likely to give the message 
"Monitor size has changed from xK to xK." You should go 
through the TABLE sub-option of DEFAULT and fix up your 
memory allocation table. If you made your monitor larger 
(i.e. added resident overlays) INIT will reset the memory 
table, and you will have to go through DEFAULT. 


HIDDEN MONITOR CALL 

In the last issue, I documented the .XPEEK call, which 
allows for peeking at blocks of physical memory. Obviously, 
this is an extremely useful call, however since it is an EMT 
(as opposed to a UUO subfunction) it cannot be executed di¬ 
rectly from BASIC. 

While I was peeking through some 7.1 code, I dis¬ 
covered something rather interesting. The .MESAG handler 
(message send-receive EMT) has a hard-coded compare for a 
subfunction code of 4. I followed the branch, and guess 
where it wound up ... just before the beginning of the 
.XPEEK code! Two move instructions transfer the physical 
source address from the FIRQB to the XRB, where .XPEEK 
expects it. This means that you can XPEEK by executing a 
.MESAG call. Message send-receive is of course usable from 
BASIC, and so is XPEEK! 

In a conversation with the RSTS developer responsible 
for .XPEEK, I questioned him as to the hidden .MESAG sub¬ 
function. He said he implemented it so that he could easily 
debug .XPEEK from BASIC. He also added that XPEEK was 
intended for use by some DECnet utilities, in order to allow 
for XBUF peeking, and, unofficially, that the call was prob¬ 
ably not going to go away in future releases. 

The format of the call from BASIC for XPEEK via 
message send-receive is as follows: (Note that I have at¬ 
tempted to be consistent with the Programming Manual, so 
please tolerate the description of the first byte of the 
call...) 

Data Passed: 

Bytes Meaning 

4 

1 CHR$(6%), the SYS cal! to FIP. 

2 CHR$(22%), the send/receive function code 

3 CHR$(4%). the .XPEEK subfunction code 

4 CHR$(M%). where M% contains the most significant six bits of 
the physical address to XPEEK at. 

5-6 CHR$(L%) + CHR$(SWAP%(L%)). where L% contains the least 
significant bits of the physical address. 

Bytes 4-6 form the physical base address to XPEEK at. This 
must be an area of memory which exists on the system, and is 
not locked out. You can only access memory which is in the 
monitors MEMLST. therefore you cannot XPEEK at the I/O page. 

The physical base^ address is a byte address and may be odd. i.e. 
point to the high byte of a word. 

7-10 Ignored. 

11 CHR$(C%), the channel number of the I/O buffer to return the 
data in. 

If C% is between 1 and 12. the system returns the data in the 
buffer for channel C%. The channel must be open. 

Channel 0 can be used for the I/O buffer (not recommended) if 
128 is added to the channel number-, that is. CHR$(128% + 0%). 
In general. CHR$(128% + C%) allows channels zero through 12 to 
be used for I/O buffers. 

12 CHR$(0%) reserved—must be zero. 


TERMINALS FROM TRANSNET 


PURCHASE PLAN • 12-24 MONTH FULL OWNERSHIP PLAN * 36 MONTH LEASE PLAN 


DEC 


TEXAS 

INSTRUMENTS 


LEAR SIEGLER 


DATAMEDIA 


NEC SPINWRITER 


GENERAL ELECTRIC 


TIMEPLEX 


PURCHASE 

DESCRIPTION PRICE 

LA34 DECwrtter IV Forms Ctrl.... SI .095 

LA100 Loiter Printer RO. 

LA120 DECwrtter III KSR . 

LA120 DECwrtter III RO . 

LA12A Portable DECwrtter. 

VT100 CRT DECscope . 

VT101 CRT DECscope 
VT125 CRT Graphics 
VT131 CRT DECscope 
VT132 CRT DECscope 
I VT18XAC Personal Computer Option 

TI745 Portable Terminal. 

TI765 Bubble Memory Terminal . 

TI940 CRT. 

T1785 Portable KSR, 120 CPS. .. 

TI787 Portable KSR, 120 CPS .. 

T1810 R0 Printer. 

T1820 KSR Printer 

ADM3A CRT Terminal . 

ADM5 CRT Terminal . 

ADM32 CRT Terminal 

I EXCEL 12 CRT Terminal. 1.595 

EXCEL 42 Smart Buffered CRT .. 

I C0L0RSCAN 10 Color CRT. 3,195 

I 910 CRT Terminal. 

925 CRT Terminal. 

I 950 CRT Terminal. 1.075 

| Letter Quality, 7715 R0. 2,895 

I Letter Quality, 7725 KSR. 3,295 

2030 KSR Printer 30 CPS . 1.195 

2120 KSR Printer 120 CPS . 2,195 

MX-80 F/T Printer. 

MX-100 Printer . 

E0400 4 Channel Stat Mux. 1,525 

E0800 8 Channel Stat Mux. 2,050 


$105 S 58 


MMOS 

S 40 


1,995 

190 

106 

72 

2,295 

220 

122 

83 

2,095 

200 

112 

75 

2,950 

280 

155 

106 

1,695 

162 

90 

61 

1,195 

115 

67 

43 

3,295 

315 

185 

119 

1,745 

167 

93 

63 

1,995 

190 

106 

72 

2,395 

230 

128 

86 

1,595 

153 

85 

58 

2,595 

249 

138 

93 

1,795 

173 

96 

65 

2,395 

230 

128 

86 

2,845 

273 

152 

102 

1,695 

162 

90 

61 

2,195 

211 

117 

80 

595 

57 

34 

22 

645 

62 

36 

24 

1,165 

112 

65 

42 

1,595 

153 

85 

58 

995 

96 

54 

36 

3,195 

307 

171 

116 

650 

62 

36 

24 

850 

82 

46 

31 

1,075 

103 

57 

39 

2,895 

278 

154 

104 

3,295 

316 

175 

119 

1,195 

115 

67 

43 

2,195 

211 

117 

80 

745 

71 

42 

27 

895 

86 

48 

32 

1,525 

147 

82 

55 

2,050 

197 

110 

74 


FULL OWNERSHIP AFTER 12 OR 24 MONTHS • 10% PURCHASE OPTION AFTER 36 MONTHS 


MICROCOMPUTERS 

APPLE • COMMODORE • HP87 • DEC 


ACCESSORIES AND PERIPHERAL EQUIPMENT 

ACOUSTIC COUPLERS • MODEMS«THERMAL PAPER * RIBBONS • INTERFACE MODULES • FLOPPY DISK UNITS 


TransNet CORPORATION 

1945 ROUTE 22 • UNION. N.J. 07083 • (201) 688-7800 
TWX*710-985-5485 800-526-4965 OUTSIDE N.J. 
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DEC 

RSTS/E USERS 

From one of the pioneers in commercial 
data processing using RSJS. Off the shelf 
software ready for immediate delivery. 
Completely interactive. Extensively 
documented. Fully supported. Ideal for 
OEM’s, service bureaus or end users. 
Cost effective solutions including: 

• ACCOUNTS PAYABLE 

• GENERAL LEDGER 

• FINANCIAL REPORTING 

• ACCOUNTS RECEIVABLE 

• PAYROLL 

• FIXED ASSETS 

For complete details, contact us at: 


Plycom 


services, inc. 

P.O. Box 160 
Plymouth, IN 46563 
(219) 935-5121 
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13-14 CHR$(L%) + CHR$(SWAP%(L%)). where L% is the count of bytes 
to XPEEK at. starting from the physical base address in bytes 4-6. 
The count must be less than or equal to 8064. 

This count must be an even number. Although bytes 4-6 may 
be odd. the transfer length must be a multiple of two. 

A count of zero or one will cause unpredictable results. 

15-16 CHR$(0%) + CHR$(SWAP%(0%)), where 0% is the offset from 

the start of the buffer. 

The offset field determines where in the buffer the data will be 
returned. The offset value is added to the location of the beginn¬ 
ing of the buffer. The offset value must be in the range zero 
through < buffer size >—1. 

17-40 CHR$(0%) reserved—must be zero. 

Data Returned: 

No meaningful data is returned in the parameter string. The data 
contained in the physical memory locations described by bytes 4-6 
and 13-14 will be returned in the I/O buffer passed in byte 11. 

Possible Errors: 

Meaning ERR Value 

7PR0TECTI0N VIOLATION 10 

The described area of physical memory is 
non-existent or locked out. Also, the XPEEK 
subfunction is privileged. 

7ILLEGAL BYTE COUNT FOR I/O 31 

The count specified in bytes 13-14 is illegal, 
either because it is odd. or is outside the 
range of 0< = L%< = 8064. 

Note that the call itself requires no I/O channels, etc., 
but that this is a kludge so that BASIC can define a buffer 
which the user can access. If you are using this call from 
BASIC Plus 2, the preferred way is by calling a macro 
subroutine to do the .XPEEK into a passed string or a PSECT 
(i.e. a MAPped or COM'd string.) 

The .MESAG form of the XPEEK call from macro works 
(of course!) although it is not recommended since .XPEEK 
itself could be executed. The arguments are passed in both 
the FIRQB and the XRB as follows: 


Octal 

r invD 

Offset 

Mnemonic i 

Octal 

Offset 

Mnemonic 

1 


!///////,/////////////////////// 

1 0 


3 


\///i ' ///////////////////////// 

! 2 


5 

FQSIZM 

| MSB of address j func. code=*l 

! 4 

FQFIL 

7 


! LSW of address 

1 6 

FQPPN 

11 


i/////////////////////////////// 

1 10 




o 

0 

0 



37 


1 /////////////////////////////// 

! 36 



The XRB parameters are the same as for .XPEEK, ex¬ 
cept that XRBLK and XRBLKM are loaded from FQPPN and 
FQSIZM. and anything passed in these locations in the XRB 
is ignored. 

If you are using XPEEK to examine your own job, other 
jobs, or portions of the monitor, there are some things you 


should know about monitor memory layout. Most of this in¬ 
formation can be found in a listing of TBL, which includes 
KERNEL. Generally, addresses in MEMLST are stored as phy¬ 
sical address divided by 100 (octal). Unfortunately, BASIC 
does not have an ASHC function, and it is extremely clumsy 
with integers and bit operations. Long word integers in the 
next release of BP2 will solve this problem, but until then, 
you might consider coding part or all of your routine in 
MACRO-11. 

VERSION 7.2 

I still don’t have much to tell you about version 7.2 of 
RSTS, except that you can expect to see some of the things 
promised but not delivered in 7.1. Probably the biggest item 
on the list will be clustered library support, although this is 
not a function of the monitor. Other than that, version 7.2 is 
really just a maintenance release for 7.1. The internals 
should be nearly identical. 

In Atlanta, DEC announced the first release of a new 
spooling package which will be distributed with version 7.2. 
No details yet, sorry. Also, unofficially, according to the 
RSTS development team, named directories will not be sup¬ 
ported any time in the near future. 

CONCLUSION 

I hope you have enjoyed this installment of the RSTS 
Crystal Ball. I will continue to try to present information 
which is interesting and useful. In the future. I may be able 
to answer any technical or semi-technical questions that you 
send to me. In any case, I would enjoy hearing from you, so 
if you have any questions, gripes, or suggestions, call or 
write: Michael C. Greenspon, C/O Integral Information 
Systems, 9832 Vicar Street, Suite 100, Los Angeles. Califor¬ 
nia 90034, (213) 558-0732 

Also, the ONLRES listing is admittedly rather long to 
key. so if you would like a machine readable copy on mag¬ 
tape, send $20.00 to IISI (AttmMCG) and we'll get it out to 
you. I may decide to throw some other random things of in¬ 
terest on there too, perhaps some monitor feature patches. 
Please specify 800 or 1600bpi. Until next time, happy hack¬ 
ing! 

[H,8] ONLRES.B2S 


1 !.A 

I [MCG] A 
! & 
I & 
! Program: ONLRES & 
! Description: Mates RSTS modules [non]resident & 
! Version: XI.0 & 
! OS Version: RSIS 7.1-11 [and later] A- 
! Package: Internal hacks & 
I Author: Michael C. Greenspon & 
I Edit date: 02 July 1982 & 
! & 
I & 
I-----& 


Title to and ownership of this software shall at all times re- A 


main with Integral Information Systems. A 

A 

The information in this software is subject to change without A 
notice and should not be construed as a commitment by Integral A 
Information Systems. a 

A 

This software is unreleased and Integral Information Systems A 
has no obligation to support it at this time, unless stated A 
elsewhere in writing. A 


A 

A 

A 

A 

A 
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FPS80 HAS PROVEN ITSELF IN COMPANIES 
LIKE SHELL INTERNATIONAL. IT IS BE¬ 
COMING A BIG NAME IN FINANCIAL 
PLANNING. 

JOIN US. 

WE ARE LOOKING FOR U.S. DISTRIBUTORS 
FOR OUR PRODUCTS. NOW IS YOUR 
CHANCE TO SHARE IN OUR SUCCESS. 

IF YOU SELL DEC COMMERCIAL SOFT¬ 
WARE, WHY NOT ADD THE UP AND COM¬ 
ING FINANCIAL PLANNING PACKAGE TO 
YOUR RANGE OF PRODUCTS? 

FOR INFORMATION CONTACT: 

I) HOLROYD 

RTZ COMPUTER SERVICES 
6 ST JAMES’S SQUARE 
LONDON SW1Y4LD 
TELEPHONE 01-930 4163 
TELEX 24639 
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1 

! 

Modification history: 



1 

1 

Date 

Ver/Ed By 

Reason 


I 

! 

1 

I 

02 July 82 

1.0/01 MCG 

Initial creation 


1 

! 

1 

Description: 




I 

0NLRES is a neat hack based on 

the monitor overlay scheme in 


I 

RSTS V7.1 and 

7.2 (and later, probably). It allows modules of 


1 

0VR to be made 

resident or non- 

resident after SYSGEN, on-line. 


I 

Note that the 

changes will not 

go into effect until the system 


1 

1 

1 

is re-booted. 




1 

I 

I 

Compilation instructions: 



I 

Simple ... ONLRES is self-contained, so enter BP2 and 


I 

OLD ONLRES 




1 

COM/OBJ 




1 

BUI 




1 

RUN ITKB 




1 

1 

I 

80NLRES 



600 

I- 

! 





1 

1 

Compile time constants: 



1 

Various random 

i definitions 


\ 

.DEFINE 

.EXTENSIONS 

= 8S 

1 FSS extension specified 

\ 

.DEFINE 

.BAD.LOGDEVS 

= -1638US 

1 FSS illegal logical device 

\ 

.DEFINF 

.FQDEVNS 

= -256S 

I -1 High byte, 0 low byte 

\ 

.DEFINE 

.FQDEV.SYS 

= 22867S 

I ASCII word "SY" 

\ 

.DEFINE 

.SIL.IOS 

= IS 

I I/O channel for our SIL 

\ 

.DEFINE 

.SILS 

= 30772S 

! RAD50 of "SIL" 

\ 

.DEFINE 

•IDENTI 

= "Onlres 

"! Who we are 

\ 

.DEFINE 

.VERSIONS 

= "V7.1-11" 1 What version we are 


1 

Bits, offsets. 

and lengths for overlay table header 

\ 

.DEFINE 

•0THF0RS 

= OS 

1 Offset to format number 

\ 

.DEFINE 

.0THREVS 

= 2S 

1 Revision number 

v 

.DEFINE 

.0THSIHS 

S ns 

1 Size of table header 

\ 

.DEFINE 

.OTHSIMS 

= 6S 

1 Size of module header 

\ 

.DEFINE 

.0THE10S 

= 8S 

1 Size of overlay entry 

\ 

.DEFINE 

.OTMNAMS 

= os 

! Module name 

\ 

.DEFINE 

.OTKFLGS 

= 2S 

I Flagwora 

\ 

.DEFINE 

.OTMNUMS 

= ns 

! Count of overlays in module 

\ 

.DEFINE 

.OTFRESX 

= IS 

! Set = module is resident 

\ 

.DEFINE 

.OTFORS 

= os 

! Current format number 

\ 

.DEFINE 

.CTHEVS 

= os 

! Currert revision number 


1010 

\ 

\ 

\ 

\ 


PRINT IF CCPOS(OS) I Reset terminal to margin & 

PRINT .IDENTI ♦ HT ♦ .VERSION$ ♦ HT ♦ HT 4 

♦ "Integral Information Systems" + CR ♦ LF 4 

♦ "Monitor overlay residency changer" 4 

I Print our header 4 

M$ = SYS(CHR|(6S) «■ CHRK-211)) I Drop priv's if we have them for some 4 
I strange reason 4 

ON ERROR GOTO 10000 I Set standard error trap 4 

OPEN "_SY0:[0,1JINIT.SYS" FOR INPUT AS FILE #.SIL.IOS, MODE 8192S 4 

I Open up INIT.SYS 4 find Installed SIL 4 


POINTERS = INITt(29S)/2S AND 32767S 

I Get a pointer to the SIL's name 
DEFAULT.SILI = EDITKRAD$( INITS( POINTERS)) «• 

RAD|(INITS(POINTERS ♦ IS)), -IS) ♦ ".SIL" 

I Convert it to ASCII, etc. 

CLOSE #.SIL.I0S I Close in case it was open 

PRINT IF CCPOS(OS) 

PRINT 

"" I Initialize this 

LEN(SILI) I Until we have a SIL name 

SIL$ = FNINPUTK "Monitor SIL to patch? ", DEFAULT.SIL|) 

I Find out which file to patch 
PRINT ERTK2S) UNLESS LEN(SIL$) 

I Do like INIPAT if no filename 
I Loop until we have a filename 
Ml = SYS(CHR|(6S) ♦ CHRK-10S) ♦ SILI) 

I FSS the SIL name 

(MS(I^S) AND .BAD.LOGDEVS) = .BAD.LOGDEVS 

I Illegal logical device 
PRINT ERTK6S) I Not a valid device 

GOTO 1010 


SILI = 
UNTIL 

\ 


NEXT 


IF 


THEN 

\ 

ELSE 

\ 


IF 

THEN 

\ 

ELSE 

\ 


STATUS AND 255S I If not a disk 
PRINT "?Device oust be disk" 

GOTO 1010 ! Error if abuser specified ron-disk 

MS(5S) = .SILS UNLESS MS(IHS) AND .EXTENSIONS 

I Default extension to .SIL if none 
MS(11S) = .FQDEV.SYS UNLESS MS(11S) 

I Default to SY: if no device 
SILI = ♦ CVTSI(SWAPS(MS(11S))) 

I Get the device name 
SILI = SILI ♦ NUM1|(MS(12S) AND 255S) 

IF MS(12S) AND .FQDEVNS 

I Tack on unit number if explicit unit 
SILI = SILI ♦ ♦ RAD|(MS(3S)) ♦ RAD$(MS(4%)) ♦ 

♦ RAD|(MS(5S)) 

1 Form the filename 

SILI = SILI ♦ "[" ♦ NUM1|(SWAPS(MS(2S)) AND 255S) 

♦ ♦ NUM1|(MS(2S) AND 255S) ♦ "1" 

IF MS(2S) 

1 Tack on the PPN if we have one 
OPEN SILI FOR INPUT AS FILE #.SIL.IOS, MAR SIL 
I Open the file, finally 


1020 

\ 


I Uet the header block 
I Zero the checksum 


GET f.SIL.lOS, RECORD IS 
CHECKS = OS 
FOR IS = IS TO 508S STEP 2S 

\ CHECKS = CHECKS XOR SWAPS(CVTIX(MIDI(SIL.ALLS,IS,2S))) 

NEXT IS I Loop through header and checksum it 

IF CHECKS <> CHKSUMS OR 
R50SILS <> .SILS 

I If checksums don't match or SILOSIL 
PRINT "?lnvalid Save Image Library header" 

GOTO 1010 ! Print an error and go back 


THEN 

\ 

ELSE 

\ 


FOR 


MODULES 


OS TO MODCNTS - IS 

I Loop through the modules in the SIL 



i 




4 



\ SILMOD! = MODESCK MODULES) 

4 


i 

MAPs and COMMONS: 



4 



\ GOTO 1C30 

4 


I 




4 



IF EL’IT|( RADI(NAMEIS) + RAD$(NAME2S),-1S) = "OVR" 

4 


1 




4 



! Get out if we found OVR 

4 






4 


\ 

NEXT MODULES 

4 

\ 

MAP 

(SYSCAL) 

i 

Map for simple SYSO calls 

4 


\ 

PRINT "?Module OVR not found in SIL" 

4 



M|(29S) = 

IS 1 

byte by byte 

4 


\ 

GOTO 1010 1 Print error if OVR not found and loop 4 

\ 

MAP 

(SYSCAL) 

! 

Re-map this 

4 

1030 

IF 

LEFT|(ED1TS(RAD$(IDENT1S)+RADS(IDENT2S),-1SMS) < "07.1" 

4 



MS(ms) 

! 

into integer words 

4 


THEN 

PRINT "?Monitor SIL is pre-version 7.1" 

4 






4 


\ 

GOTO 1010 ! Do our best, without going out of our 

4 

\ 

MAP 

(SYSCAL) 

! 

Re-map this 

4 



1 way, to insure that this is a 7.1 or 

4 



Ml 

30S ! 

into one string 

4 



1 later monitor 

4 

\ 

MAP 

(SIL) 

! 

Map for SIL header block 

4 


ELSE 


4 



SIL.ALL|= 

512S ! 

MAP the WHOLE thing 

4 


\ 

0VR.BLKS = STARTS + IS ! Get starting OVR block number 

4 

\ 

MAP 

(SIL) 



4 


\ 

OVR.ADDS = ADDRESS! I and load address 

4 



MODCNTS, 

! 

Count of modules in SIL 

4 


\ 

CURRENT.BLKS = OS I No current block for FNWORDSO 

4 



MODESCKHlS) = 

32S, I 

Module description blocks 

4 


\ 

IF FNWORDS(OVR.ADDS ♦ .OTHFORS) <> .OTFORS 

4 



F1LLI = 

26S, ! 

Uninteresting space 

4 



OR FNWORDS(OVR.ADDS ♦ .0THREVS) <> .OTREVS 

4 



CHKSUMS, 

1 

The checksum of the header 

4 11 



THEN PRINT "?Overlay table header is incompatible" 

4 



R50SILS 

1 

"SIL" in RAD50 

4 



\ GOTO 1010 ! Insure that the OTH is of the same 

4 

\ 

MAP 

(SILMOD) 

1 

Module description layout 

4 



1 format/revision level 

4 



NAME1S, 

I 

RAD50 module name 

4 



ELSE 

4 



NAME2S, 

1 

two words 

4 



\ OTHSIHS = FNW0RDS(OVR.ADDS ♦ .OTHSIHS) 

4 



IDENTIS, 

| 

RAD50 module ident 

4 



! Get overlay table header size 

4 



1DENT2S, 

1 

two words 

4 



\ OTHSIMS = FNWORDS(OVR.ADDS «• .OTHSIMS) 

4 



STARTS, 

f 

Starting block of module - 1 

4 



! Module header size 

4 



STBS, 

I 

Starting block of STB - 1 

4 



\ 0THSI0S = FNWORDS(OVR.ADDS ♦ .0THSI0S) 

4 



SYMB0LSS, 

! 

Number of symbols 

4 



! and overlay descriptor size 

4 



ADDRESS!, 

! 

Load address of module 

4 







MODSIZS, 

1 

Module size 

4 

10*10 

MODULE'! 

= FNINPUTK"Module name? ","") 

4 



XFRX 

! 

Module transfer address 

4 



! Find out which module she wants to 

4 

\ 

MAP 

(SILMOD) 

1 

Re-map this mess 

4 



1 change residency of 

4 



SILMODS = 32S 

1 

into one string 

4 

\ 

ADDRS = 

OVR.ADDS ♦ OTHSIHS 1 Point past start of ovr table header 

4 









! (i.e. to first module header) 

4 

900 

1 




4 

\ 

FOUNDS : 

: OS ! So far we've found nothing 

4 


! 




4 

\ 

PRINT "Directory of overlay modules in 0VE:" ♦ CR + LF ♦ "Name" 

4 


1 

Dimensionless statements: 


4 


+ HT 

+ "Length" ♦ HT ♦ "Ovr" ♦ HT ♦ "Status" 

4 


! 




4 



UNLESS LEN(MODULEI) 1 Set up to print a directory 

4 


1 




4 



1 Module name, total length of all 

4 






4 



1 overlays, number of overlays, and 

4 

\ 

DIM # 

•SIL.IOS, INITX(32767S) 

I Virtual 

array to peek through INIT 

4 



1 current residency status 

4 


And now, the code 


WHILE FNW0RDS(ADDRS 


.OTMNAMS) 4 

I Until end of table, 4 

OVERLAYSS = FNW0RDS( ADDRS .OTMNUMS) 4 

! Get number of overlays in this module 4 
LENGTHS = OS I Zero this 4 


LENGTHS = OS 











BAComfiis can do it all! 


BAC into RTS / BAC into MAC / BAC into BAS BACmac is a unique software tool, running 

under RSTS/E, which provides the following 
conversions: 

■ translation from Basic-Plus "compiled" back to 
Basic-Plus source code (only the comments will 
be missing) 

■ translation from Basic-Plus into Macro source 
code, which compiled under RSTS runs faster 
than Basic-Plus 

■ translation from Basic-Plus into Macro source 
code which may be compiled under RSTS for 
execution under RT11 — a migration facility 

■ translation from Basic-Plus into a RUN-TIME- 
SYSTEM. Now you can write an RTS in Basic-Plus. 
The ideal solution to memory thrashing due to 
"multi-copy" applications programs. 


RSTS/E, RT11, Macro-11 and Basic-Plus are trademarks of Digital 
Equipment Corporation. 


Western Distributor: 

Telecom Computer Systems, Inc. 

P.O. Box 03285 
Portland, Oregon 97203 
503/286-5122 


AnnCI Advanced Digital 
HUUOI Office Systems 


Eastern Distributor: 

New England Micro Technology, Inc. 

P.O. Box 767 
Marblehead, Mass. 01945 
617/631-6005 


CIRCLE 138 ON READER CARD 


\ 

\ 


\ 


\ LENGTHS = LENGTHS 

♦ FNW0RDS(ADDRS ♦ 0THSIMS ♦ IS • OTHSIOS) 

FOR IS = OS TO OVERLAYSS-IS 

I Tally up total space requirement 

\ STAT$ = ■■ 

\ STATS = "non-" 

UNLESS FNW0RDS(ADDRS ♦ .0TMFLGS) AND .OTFRESS 

I Decide If module la resident or not 
\ NAMS x RAD$(FNWORDS(ADDRS ♦ .OWNAMS)) 

I Get module name 

\ GOSUB 1050 IF NAMS = MODULES 

I Ask about changing it if we found 
I the module (and not doing directory) 
\ PRINT NAMS * HT ♦ FNOCTS(LENGTHS) ♦ HT ♦ NUM1$(OVERLAYSS) 

♦ HT ♦ STATS ♦ "resident" 

UNLESS LEN(MODULES) 

I Print the directory line 
I unless we aren't doing directory 
\ ADDRS = ADDRS ♦ OTHSIMS ♦ OTHSIOS • OVERLAYSS 

I Advance to the next module header 
NEXT . I Finish up directory printing 

PRINT "?Module not found in 0VR" 

UNLESS FOUNDS OR LEN(MODULES) = OS 

! Error if we didn't find the module 
I (and not doing a directory) 

GOTO 10A0 I Re-prompt for module name 


1050 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


\ 

\ 


\ 

\ 

\ 


\ 

\ 


FOUNDS = -IS • Now we've found it 

PRINT "Module " ♦ NAMS ♦ " contains " 

♦ NUM1$(FNW0RDS(ADDRS ♦ .OTMNUMS)) ♦ ". overlay"; 

PRINT "s"; IF FNW0RDS(ADDRS ♦ .OTMNUMS) <> IS 
PRINT Total size is " ♦ FN0CTS(LENGTHS) 

♦ " (" ♦ NUM1S(LENGTHS) ♦ ".) bytes." 

PRINT "Module is currently " ♦ STATS + "resident." 

I Print out status of module 
MAKRESS = "" I Junk this 

OTMFLGS = FNW0RDS(ADDRS ♦ .0TMFLGS) 

! Get the nodule flagword 

MAKRESS = "non-" 

IF OTMFLGS AND .OTFRESS I We're going to make it non-resider.t 

* ! if it is currently resident 

RESPS = "" 

UNTIL LEN(RESPS) I Until we have an answer 

\ RESPS = FNINPUTK "Make module " «■ MAKRESS "resident? ","YES") 

I Get an answer 

\ PRINT "Enter YES or <lf> to make module " «• MAKRESS 

♦ "resident," + CR ♦ LF ♦ "or NO to leave module " ♦ STATS 

♦ "resident." 

UNLESS LEN(RESPS) ! Print this if abuser hit <cr> 

NEXT 

RETURN IF LEFTS(RESPS,IS) = "K" I Do nothing if abuser said NO 

SIL.ALLS = LEFTS(SIL.ALLS,OFFSETS) ♦ CVTSS(SWAPS(OTMFLGS X0R .OTFRESS)) 

♦ RIGHTS(SIL.ALLS, OFFSETS ♦ 3S) 

I Change status of module (this is a 
I bit of a kludge) 

PUT #.SIL.I0S, RECORD CURRENT.BLKS 

! Write it back 

RETURN I That's all 


10000 


& 


I 

! Error trapping: 

I 

! 


\ RESUME 10010 


I Resume to handle the error 


10010 


IF 

THEN 

\ 

ELSE 

\ 


ERL = 1000S I Error reading INIT.SYS 

PRINT ERTS(ERR) ♦ " while trying to read INIT.SYS - continuing" 

GOTO 1010 I Print any errors and ignore them 


IF 

THEN 

ELSE 

\ 


ERL = 1501 OS 1 Abuser hit *Z, etc. 
GOTO 32767 I Get out quickly 


IF 

THEN 


ELSE 

\ 


ERL s 101OS I Error opening SIL 


IF ERR = 5S AND MS(2S) = OS 
I If NOSUCH and no PPN 
THEN ERRORS = ERR 

I Save error for right message 
\ OPEN SILS ♦ "[0,1]" FOR INPUT 

AS FILE #.SIL.I0S, MAP SIL 
I Try to open it on [0,1] 

\ PRINT "File found in account [0,1]" 

\ GOTO 1020 

I Say we found it and go back 

ELSE 

\ PRINT ERT$(ERR) 

I Error opening SIL 
\ GOTO 1010 

I Try, try again 


IF 

ERL x 

1020S 


1 Error reading first block 

THEN 

PRINT 

"?Null length file?" IF ERR = V 

\ 

PRINT ERTS(ERR) UNLESS ERR = IIS 

\ 

ELSE 

GOTO 

1010 

\ 

IF 

ERL = 10010S 


THEN 

PRINT ERTS(ERR) UNLESS ERRORS 


\ 

PRINT ERTS(ERRORS) IF ERRORS 


\ 

GOTO 1010 I Error opening SIL 


IIS 


& 
& 
& 
& 
& 
& 

\ DEF FNINPUT$(PROMPTS,DEFAULTS) I Return line of input from terminal & 


15010 PRINT IF CCPOS(OS) ! Reset terminal to left margin & 

\ PRINT PROMPTS; I Print our prompt & 

\ GET #0S ! Get a line from the terminal & 

\ FIELD #0S, RECOUNT AS IS ! Chop up the buffer & 

\ IF (ASCIl(IS) AND 127S) = ICS 4 

THEN 4 

IF LEN(DEFAULTS) I If abuser hit line-feed and defaults 4 

THEN ! exist 4 

FNINPUTS = DEFAULTS ! Then return the default 4 


Wisard-defined functions: 
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WHY CALL YOUR BANK EVERYDAY? 




By Dale L. Bargar, P.0. Box 1162, 

Frederick, MD 21701 


1 EXTEND 



100 

PRINT CHR$(12>) 

& 

2 

1 


& 


\ PRINT 'A = AMOUNT OF LOAN' 

& 


1 

AUTHOR: DALE L. BARGAR 

& 


\ PRINT 'N = NUMBER OF PAYMENTS' 

& 


1 

DATE: 22-DEC-81 

& 


\ PRINT 'P = PAYMENT PER PERIOD' 

& 


t 

VERSION: 2.0 

& 


\ PRINT 'X = EXIT PROGRAM' 

& 


1 

THE FUNCTION OF THIS PROGRAM IS TO PROVIDE INFORMATION 

& 

200 

PRINT 

& 


1 

RELATING TO LOANS AND INTEREST OVER VARYING PERIODS OF TIME 

.& 


\ INPUT 'ENTER UNKNOWN (A,N,P,X)';X$ 

& 


1 

THE AUTHOR OF THIS VERSION OF THIS PROGRAM ASSUMES NO 

& 


\ X$ = CVT$$(X$,-1*) 

& 


1 

RESPONSIBILITY FOR THE USE OR RELIABILITY OF THIS SOFTWARE. 

& 


\ GOTO 3500 IF LEFT(X$,1*) = 'X' 

& 


1 

This program will permit the user to input ranges of loan 

& 

& 

250 

IF INSTR(1$,'ANP',X$)=0* THEN 200 

& 


1 

amounts and interest amounts and receive results based upon 

* 





1 

a specific loan period. 

& 

300 

INPUT 'INTEREST PER YEAR IN PERCENT';I$ 

* 


1 


& 


\ 1$ = CVT$$(I$,-1*) 

& 


1 

The user must first specify the unknown which they would likeA 


\ S.I, E.I s 0* 

& 


1 

the program to compute for them. 

& 


\ I.I = 1 

& 


1 


& 


\ Z* = INSTR(1*,I$,'-') 

& 


1 

The user must then specify the interest rate per year. A 

& 


\ IF Z* = 0* THEN 

& 


1 

single amount may be entered (e.g. 18) or a range of amounts* 


S.I, E.I = VAL(I$) ELSE 

& 


1 

may also be entered (e.g. 16-20). The program will compute & 


S.I - VAL(LEFT(I$,Z*-1*)) 

& 


1 

each of these interest rates against the loan amount specified.& 


\ E.I = VAL(RIGHT(I$,Z*+1*)) 

& 


1 


& 


\ INPUT 'INCREMENT PERCENT EY WHAT AMOUNT'; I.I 

& 


1 

The user may also specify a range of values when the program* 





1 

requests the amount of the loan. A single amount may be 

& 

400 

IF X$ = 'A' THEN 500 

& 


1 

entered (e.g. 65000.00) or a range of amounts may be entered* 





1 

(e.g. 65000.00-85000.00). The program will then compute the* 

H50 

INPUT 'AMOUNT OF LOAN'; A$ 

& 


1 

previously specified interest rate into the loan values. 

& 


\ A$ = CVT$$( A$, - 1 *) 

& 


1 


& 


\ E.FLAG*, S.A, E.A = 0* 

& 


1 

The user may requesst the program to compute the interest-to-4 


\ CNT* = -1* 

& 


1 

date on the loan. The program will request which month the 

& 


\ Z* = INSTR(1*,A$,'-') 

& 


1 

loan payments began, and then will compute the amount of 

& 


\ IF Z* = 0* THEN 

& 


1 

interest paid each year for the life of the loan. This is 

& 


A = VAL(A$) ELSE 

& 


1 

helpful for determining interest deductions for income tax 

& 


S.A = VAL(LEFT(A$,Z*-1*)) 

& 


1 

I 

purposes. 

& 


\ E.A s VAL(RIGHT(A$,Z*+1*)) 

& 


1 

1 

a 

The user may specify for the program to list each payment fori 

500 

IF X$='N* THEN 650 

& 


1 

the life of the loan. This enables the user to see how much& 





1 

of each payment is going to principal and to interest. 

& 

550 

INPUT 'NUMBER OF YEARS'; N 

& 


1 


& 


\ SAVE.N = N 

& 


1 

The output of this program may be directed to any source. 

& 





1 

However, it should be noted that "NO TAB" should be specified* 

600 

M r 12 

& 


1 

for line printers before directions output to them. 

& 





1 


& 

650 

IF X$='P» THEN 800 

& 


1 

(Note: If using this program for computing home mortgage loans,* 





I 

remember that Taxes and Insurance ARE NOT included. These 

& 

700 

INPUT 'PAYMENT FOR PERIOD'; P 

& 


1 

must be added to the monthly payment by the user. 

& 





1 


& 

800 

INPUT 'COMPUTE INTEREST-TO-DATE (Y/N)•; YN$ 

& 


1 

Happy Computing... 

& 


\ YN$ = CVT$$(YN$,-1*) 

& 


M 




\ IF YN$ = 'Y' THEN 

& 

50 

PRINT ' ••• LOAN-INTEREST RATE PROGRAM •••• 

& 


INPUT 'NO. OF MONTH OF YEAR PAYMENTS START'; MONTH* 

& 


\ 

PRINT 

& 


\ MON* = MONTH* 

& 


\ CONTROL.C$ = SYS(CHR$(6*)+CHR$(-7*)) 

& 





1 

ORIGIN OF THIS PROGRAM UNKNOWN - HOWEVER, IT HAS BEEN 

& 

810 

PRINT 

& 


1 

PROVEN ACCURATE WITHIN A DOLLAR OR SO, 

& 


\ INPUT 'LIST PAYMENTS (Y/N)'; Y$ 

& 


1 

ENTERED BY DLBARGAR 28-DEC-81 

& 


\ Y$ r CVT$$(Y$,-1*) 

& 

70 

ONERROR GOTO 3250 

& 

850 

INPUT 'OUTPUT DATA TO'; Z2$ 

& 






\ Z2$ = CVT$$(Z2$,-1*) 

& 

80 

X8$ s '####'*CHR$(9)«- , $$###.## , -'-CHR$(9)«-'$$###.##' + 

& 


\ IF Z2$=" THEN Z2$='KB:' 

& 



CHR$(9)♦'$$####•##' 

& 









. . . continued on page 70 



ELSE ! Otherwise, if no default & 

\ PRINT "Illegal character" & 

\ GOTO 15010 f Print the INIPAT type error and loop & 

ELSE I If abuser didn't just hit <lf> & 

\ FNINPUT* = EDIT$(1$,-1*) I Then return input trimmed up & 


15020 PRINT IF CCPOS(0*) 
\ FNEND 


I Reset margin again if needed & 

! That's all for now & 


15100 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


DEF* FNWORD*(ADDRESS?) I Return word at address in module & 

OFFSET* = ADDRESS* - OVF.ADD* ! Compute offset from base address & 

BLK.OFF* r OFFSET* / 512* I Now block offset from base block & 

OFFSET* = OFFSET* - BLK.OFF* • 512* A 

I Adjust offset to offset within block & 

BLK* = OVR.BLK* ♦ BLK.OFF* ! Form block number to get & 

GET I.SIL.IO*, RECORD BLK* ! Get the record & 

UNLESS BLK* = CURRENT.BLK* I If we need to & 

CURRENT.BLK* = BLK* ! Set up current block now & 

FNWORD* = SWAP*(CVT|*(MID$(SIL.ALL$,0FFSETJ*1>,2*))) A 

! Now return the contents & 

FNEND I Dat's it (hope ADDRESS* is valid) & 


15200 DEF FN0CT$(ARG*) ! Return octal representation of ARG* 

\ TMP* = "" 

\ TMP$ = CHR$( (ARG* AND 7*»8*‘TMP* )/8*“TMP*+48*)+TMP$ 

FOR TKP* = 0* TO 5* ! Reasonably hairy 

\ FNOCT* = TMP$ 

\ FNEND 


& 

A 

& 

A 

& 

& 


32767 END 


I All good things must come to an end 




r DEC best values 

PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 


SYSTEMS • CPU’s • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 979-2844 

dataware 

c incorporated 

Carico Center 

2845 NW 62nd Street 

Ft. Lauderdale Florida 33309 

1 
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Attention 
DEC users: 




MTI has what you need to turn your VT100 
into a CP/M® personal office computer. 


Digital’s VT 18X option can be installed on your VT 100 in just 
15 minutes by your MTI field service representative. It features two 
180K byte 514” mini floppy drives in a small box. A second dual 
unit can be added for a total of 720K bytes. 

A library of CP/M software programs is available from MTI in addi¬ 
tion to the operating software. Choose from over 2000 programs en¬ 
compassing high-level languages and popular applications. 

MTI is one of the few Authorized Digital Terminals Distributors, so 
we can give you the best of two worlds; terminals, based on advanced 
technology from the industry leader, and tailored software and ser¬ 
vices from an applications specialist. 

Whether you buy, rent or lease our equipment, you’ll find MTI is the 
one source for all the terminals, peripherals, systems, applications 
expertise and service you’ll ever need. At good prices. Call us today. 

New York: 516/621-6200,212/767-0677,518/449-5959 
Outside N.Y.S.: 800/645-6530 
New Jersey: 201/227-5552 
Ohio: 216/464-6688 


mti 

systems corp 


AUTHORIZED 


TERMNALS DtSTRBUTOR 


Applications Specialists & Distributors, New York, New Jersey and Ohio. 
Intel, Texas Instruments, DEC, Dataproducts, Lear Siegler, Hazeltine, 
Diablo, Racal-Vadic, Digital Engineering Retro-Graphics, Cipher, Epson, 
SMS, Elgar and 3Com. 


CP/M is a registered trademark of Digital Research, Inc. 
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SPSS R makes data analysis simple for DEC 
PDP-11 users! Now PDP-11 users can enjoy all the 
benefits that have made SPSS the world's largest 
selling Data Analysis System. It's easy to use and 
learn, thanks to its response to English language 
commands and comprehensive documentation. 
It's also sophisticated, giving researchers and 
business managers alike a full range of capabili¬ 
ties for statistical analysis and report generation. 

For full information, call or write SPSS today: 
Sue Phelan, SPSS, Inc., 444 N. Michigan Avenue, 
Chicago, IL 60611, 312/329-2400. 



© Copyright 1981 SPSS, Inc. ANALYSIS 

MADE SIMPLE 

SPSS-11 runs on DEC LSI-11 through PDP-11/70. Compatible with DEC Systems RSTS, 
RT-11, RSX-11M. IAS/Bell Labs UNIX/S&H Computer Systems TSX. 

CIRCLE 123 ON READER CARD 


860 FOR INTR = S.I TO E.I STEP I.I & 

\ SAVE.I, I * INTR/100 & 

\ SAVE.13, 13 = 1*100 & 

\ MONTH* = MON* & 

870 OPEN Z2$ AS FILE 1*, MODE 2* & 

900 IF E.FLAG* THEN 3100 ELSE 4 

IF S.AOO* THEN 4 

CNT* = CNT*+1* 4 

\ A : S.A IF CNT* =0* 4 

\ As S.A+(CNT*•1000*) IF CNT*>0* 4 

\ MONTH* = MON* 4 

\ IF A >=E.A THEN 4 

E.FLAG* = -1* 4 

960 13 = SAVE.13 4 

\ I = SAVE.I 4 

\ N = SAVE.N 4 

1000 IF X$<>*A 1 THEN 1200 4 

1100 N = N*M 4 

\ I = I/M 4 

\ B = 1+1 4 

1120 N3 = N 4 

1150 A = INT(P*((1-B'*-N)/I)*100-t-.5)/100 4 

1200 PRINT #1*, CHR$( 12*) IF S.AOO OR S.IOE.I 4 

\ PRINT #1*, STRING$(3*,10*) IF S.A=0 4 

\ PRINT #1*, • AMOUNT OF LOAN = $*;A 4 

1220 IF X$=’A’ THEN 1350 ELSE 4 

IF X$0'N' THEN 13*10 4 

1300 I = 1/12 4 

\ B = I«f1 4 

\ N = -(LOG(1-A*(I/P)))/(LOG(B)) 4 

1320 N1 : N 4 

1330 N = INT(N+.999) 4 

\ N3 = N 4 

\ GOTO 1350 4 


1340 N3 = N*M 4 

1350 PRINT #1*, • PAYMENT PERIODS**; N3 4 

1370 PRINT #1*,» *;INT(N3/12);'YEARS'; 4 

((N3/12)-INT(N3/12))*12;'MONTHS' 4 

1400 IF X$<>'P' THEN 2000 4 

1450 N = N*M 4 

\ I s I/M 4 

\ B * W 4 

1500 P * INT(A*(I/(1-B*-N))*100+.999)/100 4 

2000 PRINT 4 

\ PRINT #1J t • AMOUNT PER PAYMENT = $»; INT(P*100+.5)/100 4 

\ PRINT #1*,' INTEREST PER YEAR * ';I3;'** 4 

\ PRINT #1*,' TOTAL INTEREST = INT((P*N-A)*100+.5)/1004 

2150 PRINT 4 

\ B=A 4 

\ C3>, ITD, 01TD =0* 4 

2200 IF Y$*'Y' THEN 4 

PRINT #1*, 'PAYMENT INTEREST APP TO PRIN BALANCE OF PRIN';& 
\ PRINT #1*, ' MONTH INT-TO-DATE'; IF YN$=»Y' 4 

\ PRINT #1* 4 

2250 L * INT(B*I*100«-.5)/100 4 

\ R = P-L 4 

\ B* B-R 4 

2300 C3* = C3*^1* 4 

\ LNE* * LNE*+1* 4 

2500 IF Y$= *Y' THEN 4 

PRINT #1* USING X8$, C3*. L, R, B; 4 

2510 IF YN$='Y' THEN 4 

ITD * ITD+L 4 

\ PRINT #1*, CHR$(9*);NUM1$(MONTH*);CHR$(9*); 4 

IF Y$='Y' 4 

\ PRINT #1* USING '$###,###.##', ITD; 4 

IF Y$*'Y' 4 

\ MONTH* = MONTH**1* 4 

\ MONTH* = 1* IF MONTH* =13* 4 

\ IF MONTH* a 1* THEN 4 

PRINT #1* IF Y$='Y' 4 

\ PRINT #1*, 'YEARLY INTEREST AFTER PAYMENT NO.';4 

C3*J IF Y$<>'Y' 4 

\ PRINT #1* t TAB(66*);'('; 4 

\ PRINT #1*, USING '*###,###.##', ITD-0ITD; 4 

\ PRINT #1*, •)•; 4 

\ PRINT #1* IF Y$0'Y' 4 

\ 0ITD * ITD 4 

2520 PRINT #1* IF Y$=»Y' 4 

\ IF C3**1* = N3 THEN 2600 4 

2530 IF B < P THEN 2600 4 

2550 IF Y$*'Y' THEN 4 

IF LNE* = 50* THEN 4 

PRINT #1*, CHR$(12*); 4 

\ GOTO 2200 4 

2560 IF Y$*'Y' THEN 4 

IF INT((C3*-50*)/57)=(C3*-50.0)/57.0 THEN 4 

PRINT #1*, CHR$(12*); 4 

\ GOTO 2200 4 

2580 GOTO 2250 4 

2600 IF Y$='Y' THEN 4 

PRINT #1* USING X8$, C3*+1* f B*I, B, 0 4 

2700 IF Y$='Y' THEN 4 

PRINT #1*, • LAST PAYMENT * •; 4 

\ PRINT #1* USING '$$###.##', INT((B»I+B)*100-*..5)/100 4 

3000 PRINT #1* 4 

3100 IF (S.AOO* AND N0T(E.FLAG*)) THEN 900 ELSE 4 

CLOSE #1* 4 

3110 NEXT INTR 4 

3150 GOTO 100 4 

3250 IF ERR=28 THEN 4 

CONTROL.C$ * SYS(CHR$(6*)+CHR$(-7*)) 4 

\ RESUME 100 4 

3260 RESUME IF ERROH8 AND ERR051 AND ERR053 & 

3300 PRINT CHR$(7*);' »»L0AN NOT POSSIBLE**' 4 

\ PRINT ' (INTEREST PER PERIOD EXCEEDS PAYMENT PER PERIOD)' 4 

3500 END 4 


* 
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SIMINI 

A SIMULATION MINI COMPUTER 

By John Cato 


Why simulate a mini computer on a mini computer? After all. far more effective work can be achieved on 
the real thing. True. But consider novices beginning to understand basic concepts of computing: high-level 
language programmers getting to appreciate what happens behind the scenes; students of computer science. 
How can they obtain a smooth, simplified, yet complete introduction to the fundamentals of data processing? 
SIMINI. a simulation that is clear to follow and straightforward to teach. Displaying on a Visual Display 
Terminal, the machine actually registers in binary while the program is executing, giving an interesting 
introduction to the stored program concept, instruction cycles, low-level langauges, boolean logic, representa¬ 
tion of information and much more. 

Presented in RSTS Professional this month is the first in a three part series describing SIMINI. This month 
is the index, introduction and specification of SIMINI. The following issue will contain details of use and the 
Appendices, and the final issue will contain the source listings. The first two parts form a self contained SIMINI 
user manual. 

Much of the work within SIMINI was done some years ago. and grew from seeds planted by Mr. M.C. Willi¬ 
ams, Computer Centre Director of Luton College of Higher Education. England. This is being published in order 
that it may now be of benefit to more people, and I have asked the Editor to send any payments for publishing 
to Mr. Williams to use as he feels is appropriate to computer education in the Luton area. 

1. Introduction 

1.1 SIMINI — Outline 

1.2 SIMINI — Notes on the Design 

1.3 Uses of SIMINI 

1.4 SIMINI Guide 

2. Specification of SIMINI 

2.1 Functional Units 

2.2 Operating Systems 

2.3 System Software 

2.3.1 General 

' 2.3.2 Assembler 

2.4 The Stack 

2.5 C.P.U. Registers 

2.5.1 Control Unit 

2.5.2 Arithmetic Logic Unit 

2.6 Architecture 

2.7 Execution Cycle 

2.8 Data Representation 

2.8.1 Integers 

2.8.2 Characters 

2.8.3 Instructions 

3. How to use SIMINI 

Appendices 

A. Assembler and O/S Messages 

B. 1 Memory Referencing Instructions 

B.2 Register Referencing Instructions 

B.3 Macro Call Instructions 

B. 4 Operating System Commands 

C. References 




P 

I 
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PIONEER COMMAND 


A COMPREHENSIVE MANAGEMENT SYSTEM FOR 
MANUFACTURERS AND DISTRIBUTORS 


Comprising: 

★ Sales Order Processing 

★ Accounts Receivable 

★ Purchase Order Processing 

★ Accounts Payable 

★ General Ledger 

★ Inventory Control 

★ Bill of Material Processor 


★ Material Requirements Planning 

* Production Control 
—Works Order Processing & 

Job Costing 
—Routings 

—Work Centre Loading 


Designed for Timeshare and Turnkey installations on PDP 11 
RSTS Computers 

Based on the NCCS USER 11 Data Management Systems 
Installations in 

UK, USA, Australia and New Zealand 
Local Dealers wanted Worldwide 
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Random Access Memory (RAM) of 512 bytes is adequate 
to store the largest program that the user could wish to write, 
within the bounds of the purpose of SIMINI. 

SIMINI's "hard-wired" operating system is simple and 
accepts commands chosen for their similarity to the PDP11 
RSTS/E O/S commands (2.2). 

The registers provided (2.5) should be sufficient to illus¬ 
trate most important aspects of machine architecture. 

Only integer arithmetic is provided for. This is for two 
reasons: 

(i) double precision and floating-point would possibly 
encourage the writing of applications programs 
instead of merely programming excercises. (Applica¬ 
tions programs ought to be written in one of the 
languages implemented on the host machine.) 

(ii) it could be a good exercise to write floating-point 
routines in SIMINI assembler. (This would lead to a 
deeper understanding than could be gained ffon any 
built-in implementation.) 

In the interests of simplicity, assembler features such as 
symbolic addresses and literals are not used. 

The assembler is therefore able to assemble line by line, 
and the stored program is runnable at any given point in time. 

Octal numbers are used for addressing in SIMINI 
assembler, so that program instructions can be compared 
directly to the displayed register's bit-patterns. 

The register instructions (Appendix B.2.), considered 
more usual, have high order function codes so that all the 
function codes that are used may appear complete. 

The stack mechanism implemented in SIMINI allows the 
user to gain an understanding of this data structure in a 
relatively straightforward way. 


1.1 SIMINI — Outline 

SIMINI is a simulation of the operation of a mini compu¬ 
ter. It is designed to be used as a visual aid for teachers of 
Computer Science. 

The "Computer" is a dedicated, single user, single- 
programming, soft machine which has 8 operating system 
commands and incorporates an easy to use inter-active 
assembler. 

During program execution the machine's registers are 
displayed in binary on the user's visual display terminal. 

Assembled programs may be saved on backing store and 
program libraries maintained. The contents of store may be 
dumped out on to the user's terminal, or any other terminal 
linked to the host computer. 

A complementary simulation is MINSIM which is com¬ 
pletely compatible and offers a TRACE option but does not 
require a VDU. 


1.2 SIMINI - Notes on the Design 

SIMINI is for use as an aid to visually demonstrate 
machine architecture and as an introduction to assembly level 
programming. It appears to the user to be a simple single- 
user, stand-alone machine. 


1.3 Uses of SIMINI 

SIMINI is an educational "machine" for teaching some 
basic areas of computer science. 

SIMINI may be used to illustrate: 

— Representation of information: 

i. Decimal, octal and binary number representation 

ii. The idea of words, bytes and bits 

iii. Integer representation 

iv. Characters 

v. Instructions 

— The stored program concept. 

— The instruction cycle — the microcode required for one 
low-level instruction. 

— The registers necessary for successful program execution, 
and the required data pathways. 

— Logical operations — AND, OR, NOT, XOR 

— The basic concepts of an assembler. 









What gives your VAX or PDP 11 

TOTAL NETWORKING, 
MORE THRUPUT 
AND BETTER 
PERFORMANCE? 


Cableshare’s full line of Dec maintained 
X.25 computer communication products. 




Our family of LSI-X.25 products are designed to 
give you everything needed to join the Network¬ 
ing revolution. You will increase the efficiency 
of your operation while improving your speed, 
accuracy, flexibility and control. 

Front End Processor 

Connects your PDP-11 or VAX to packet 
switched networks without any application soft¬ 
ware changes while it increases CPU processing 
capacity and eliminates expensive communica¬ 
tions port hardware. 

Intelligent Concentrator 

Allows up to 32 asynchronous terminals to 
access your computer through packet networks. 
Plus, it supports formatted screen mode for 


prompting and checking information from data 
entry clerks. The templates are stored in the con¬ 
centrator and accessed as needed for greater 
accuracy and reduced CPU processing time. 

Portal 

File transfer between VMS, RSTS/E and 
RSX-11M systems eliminating magnetic tape or 
costly hardware solutions. Portal can be used 
with Cableshare’s full X.25 networking products 
to provide file transfer over both public and pri¬ 
vate packet switched networks. 

Electronic Mail 

Provides a rapid cost efficient way to exchange 
business information at any time or place, access¬ 
ed by standard terminals directly or through any 
X.25 network. 


G®cableshare inc. 


20 Enterprise Drive 
P.O. Box 5880 
London, Ontario N6A 4L6 
(519) 686-2900 


Suite 1810 
25 Adelaide St. E. 

Toronto, Ontario M5C 1Y2 
(416) 365-7322 


Suite 203 Plaza Office Centre 

825 Manning Gardens N.E. Route 73 and Fellowship Rd. 

Calgary, Alberta T2E 7L4 Mount Laurel, New Jersey U.S.A. 08054 

(403) 248-1304 (609) 234-8141 
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— Low level languages 

— Specifically a one-address order code, but with a range 
of zero-address order code instructions. 

— arithmetic operations 

— data transfer/manipulation operations 

— transfer of program control 

— unconditional branching 

— conditional branching 

— subroutine calls 

— addressing modes 

— direct 

— indirect 

— indexed 

— indexed indirect 

— the use of a stack 

— subroutine calling 

— data storage 

— arithmetic 

SIMINI provides a base to many other areas of computer 
science including the use of backing store, and high-level 
language development, etc. 


1.4 SIMINI Guide 


RUN MINSIM 
0/S MOPE 

Would you like a command summarw(Y or N)^ Y 
ASSEMBLER FORMATS 

STORE ADDRESS 

then MNEMONIC t ADDRESS 
or LITERAL 

Indexed addressins is achieved by specifying ADDRESSX 
Indirect addressins is achieved by specifying ADDRESSI 

Addresses are specified by a 3 digit octal no. (000-777) 


MEMORY REFERENCING INSTRUCTIONS 


000 


001 LDA 

002 

STO 

003 

ADD 

004 

SUB 

005 

MUL 

006 DIY 

007 

AND 

010 

OR 

on 

XOR 

012 

JMP 

013 JANZ 

014 

JALZ 

015 

INCH 

016 

JSR 

017 

CAHE 

020 LDX 

021 

STOX 

022 

LDPC 

023 

STPC 

024 

JAP 

025 JAZ 

026 

JXNZ 

027 

JXLZ 

030 

JXP 

031 

JXZ 

032 JOY 

033 

JNOY 

034 

JSI 

035 

CXHE 

REGISTER 

INSTRUCTIONS 







000 

STOP 

001 CLA 

002 

INC 

003 

DEC 

004 

ADDS 

005 

SUBS 

006 SWAB 

007 

HOP 

010 

HOPE 

Oil 

HOPN 

012 

HOPL 

013 HOPG 

014 

NOT 

015 

NEC 

016 

INCX 

017 

DECX 

020 SUAX 

021 

SUAR 

022 

ASL 

023 

ASR 

024 

ROR 

025 ROL 

026 

CLV 

027 

SEY 

030 

HOPY 

031 

CLC 

032 SEC 

033 

HOPC 

034 

CCY 

035 

SCV 

036 

SWAP 

037 PUSH 

040 

POP 

041 

RTS 

042 

MULS 

043 

DIVS 

044 PACC 

045 

RACC 

046 

PST R 

047 

RSTR 

050 

NLIN 








OPERATING 

SYSTEM COMMANDS 







RUN 

NNNN 

DUM NN 

SAY 

XXXXXX 

OLD 

XXXXXX 

APP 

XXXXXX 

UNS 

XXXXXX CAT 

BYE 







For this summary at any time» type 'HELP' 

0/S MODE 
? 000 RACC 
? 001 STO 010 
? 002 RACC 
? 003 ADD 010 
? 004 PACC 
? 005 NLIN 
? 006 JANZ 000 
* 007 STOP 
? DUM 

PROGRAM NONAME.SIM 


ADDRESS 

CONTENTS 




OCTAL 

DECIMAL 

CHAR 

BINARY 

ASSEMBLER 

000 

37 

' %' 

0000000000100101 

RACC 

001 

4104 

' ' 

0001000000001000 

STO 010 

002 

37 

' X' 

0000000000100101 

RACC 

003 

6152 

' / 

0001100000001000 

ADD 010 

004 

36 

' S' 

0000000000100100 

PACC 

005 

40 

' ( ' 

0000000000101000 

NLIN 

006 

22528 

'X ' 

0101100000000000 

JANZ 000 


STACK POINTER 512 
? RUN 


? 4 

T 5 
9 

* 1 
? -1 
0 

0/S MODE 
? BYE 

Control is beins passed from SIMINI to RSTS/E 
You maw now issue any RSTS command 

Ready 


2. Specification of SIMINI 


2.1 Block Diagram of the Main Functional Units 



The Central Processing Unit (CPU) includes an Arithmetic 
Logic Unit (ALU), control unit, registers, and hard wired Oper¬ 
ating System (0/S). 

The Visual Display Unit (VDU) terminal is used for com¬ 
munication between the 0/S and the computer user.: and also 
under program control, between the running stored-program 
and the user. 

Main memory is 512 words of 16-bit semiconductor 
store. 

Backing store is on disc and is used only by the 0/S for 
program library maintenance. 

Another terminal may be used by the system for dump 
program listings under 0/S control. 

The Operating System 

When the machine is under direct Operating System 
control, "0/S MODE" will be displayed upon the VDU on line 
15. The 0/S will prompt the user with a "?” in the lower left of 
the VDU screen when it is receptive to user commands. If a 
command is valid, no message will be output. For details of 
0/P messages see Appendix A. The machine is also in 0/S 
mode when the assembler is being used. 

The executive is hardwired, and so does not occupy any 
main memory. 

Operating System Commands 
Command Explanation 

RUN (NNN) RUN. followed by an optional 3 digit octal 

address passes control to the stored pro¬ 
gram starting execution from address 
NNN (default 0). 
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FINALLY aT0TAL MAGTAPE INDEXING and 

■" FILE LOOK-UP SYSTEM forDEC v computers 

• Dramatically simplifies magtape indexing and file lookup 

• Easy to use with extensive ON - LINE HELP feature 

• Compatible with DEC’S standard Backup package, 

SAVER* and DOS formatted tapes 

• Supports indirect command files at all levels 

TAPE-DEX f TAPE-DEX IT 


• Gives listing of tapes sorted by any 
combination of the following fields: 
date entered, expiration date, label, 
volume, type, owner, description, number. 


for more information, write or call: 

DIGfTEC 

Software Design, Inc. 


• Allows user to locate tapes containing: 
all occurances of a specified file, 
most recent backup of a file, 
first occurance of a file, or the 
most recent modification of a file 

• Allows user to indicate up to 
10 different specifications (including 
wildcard). 

• Adds catalog information to SAVER* * and 
Backup listings 

14125 -108th Ave. NE- KIRKLAND WA 98033 • (206) 821-7507 


I'SAVER Is a reg. trademark of Data Processing Design, Inc. DEC is a reg. trademark of DIGITAL EQUIPMENT CORP. 


CIRCLE 134 ON READER CARD 


Note: the Stack Pointer (SP) is initialized 
as 512. Program execution may be termi¬ 
nated by a "STOP" program instruction or 
by the user with CTRL/C on the keyboard, 
both of which return control to the 0/S. 

SAV XXXXXX 4 SAV causes a file of name XXXXXX.SIM to 
be opened under the user's account 
number, and all store from 0 to the 
address pointed to by the SP-1 (and 
whose contents are non-zero), will be 
saved on that file. 

OLD (XXXXXX) OLD causes all store to be cleared. If no 
file name is specified this will be all that is 
done. Otherwise a file of name XXXXXX¬ 
.SIM will be searched for. and, if located, 
opened and the previously saved program 
will be restored. 

APP XXXXXX APP causes a file of name XXXXXX.SIM to 
be searched for, and, if located, opened 
and the previously saved program will 
have all non-zero locations restored. This 
effectively Appends the file program into 
store, the file program taking precedence 
over the stored program. 


UNS XXXXXX UNS causes the file of name XXXXXX.SIM 
to be searched for under the user’s 
account number, and, if located, the file 
will be unsaved. 

DUM NNN-NNN NNDUM. followed by an optional range of 
memory locations specified in octal, fol¬ 
lowed by an optional 2 digit decimal 
integer relating to a KB number, gives a 
core dump. Default is all memory onto the 
user's terminal. 

CAT CAT will result in a list of all program files 

with a file extensions of .SIM to be dis¬ 
played on the VDU. 

BYE BYE will close down the machine, and 

return control to RSTS/E. 


2.3 System Software 
2.3.1 General Outline 

SIMINI includes a 512 word "ROM" containing system 
programs. These are a simple assembler and library instruc¬ 
tions for PACC. RACC, PSTR. RSTR, NLIN. 
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2.3.2 Assembler 


The assembler reads a line at a time from the terminal 
and assembles the corresponding machine code instructions. 
Each line starts with the address in which the instruction is to 
be located — this address is a 3 digit octal number. The 
instructions, separated from the location by a space, starts 
with a mnemonic, if the instruction is memory referencing, 
then and address part follows separated from the mnemonic 
by a space. The address, in octal, may be followed by an "X" to 
indicate indirect addressing and T" for index modificatin. 

Alternatively the instruction part may be a single octal 
number which directly corresponds to the machine code. This 
must be introduced by a symbol. 

So that decimal numbers and strings of two characters 
can be loaded into locations. +, - and quote (") symbols are 
recognized in place of the mnemoic. Plus and minus introduce 
decimal integers. The quote must be followed by 2 characters 
and terminating quote. 

The structures accepted by the assembler can be sum¬ 
marized by: 

NNN — NNN is a 3 digit octal number which speci¬ 
fies a store location into which the follow¬ 
ing data or instruction is to be loaded. The 
NNN must be followed by a space and 
then either: 


Examples: 


001 "AB" 

002 21 

003 *001007 
004 ADD 007 


010 INCX 


a) "XX" where X is any ASCII character. 

b) a decimal integer. 

c) *NNNNNN — a 6-digit octal number 
^ 177777. 

d) XXXX NNN — a valid Memory Refer¬ 
ence Instruction followed by an optional 
"X" or "I" or "XI" where "X" will cause 
indexed addressing and "1" will cause indi¬ 
rect addressing. (Appendix B.I.). 

e) XXXX — a valid Register Instruction 
(Appendix B.2.). 


2.4 The Stack 


25 C.P.U. Registers 
25.1 Control Unit 

PC — Program Counter. The PC holds the 16-bit 

address of the current instruction being 
fetched from memory. The PC is automati¬ 
cally incremented after the instruction is 
loaded into the instruction register. When a 
program jump occurs, a new value is auto¬ 
matically placed in the PC. overriding the 
incrementer. 

SP — Stack Pointer. The stack pointer holds the 

16-bit address of the current top of stack 
located anywhere in main memory: the stack 
being organized as Last In, First Out (UFO). 
Data may be pushed onto or popped from 
the stack by means of the execution of PUSH 
and POP instructions. 

X — Index Register. The index register is a means 

by which to modify the address of an opera¬ 
tion. The value in the index register is used 
as a displacement to be applied to the 
address before the instruction is executed. 
Instructions are provided for both modifying 
the contents of the index register and 
branching conditionally on the value in the 
index register. 

1R — Instruction Register. As each instruction is 

fetched from memory it is placed in the 
instruction register and decoded. It is from 
this decoding that the necessary control sig¬ 
nals are generated for data transfer and 
ALU control. 

MAR — Memory Address Register. The memory 
address register is used to "point" to the 
address in memory which is next required, 
whether it be for loading as an instruction, or 
for loading of storage as data. 

MDR — Memory Data Register. The memory data 
register forms a buffer area between 
memory and the CPU, and all transfers to 
and from memory pass through it. 


The stack is used to store the return link (the PC) in the 
execution of a JSR. (Appendix B.I.), allowing virtually unlim¬ 
ited subroutine nesting. 

The stack also allows users to gain an understanding of 
this data structure. As well as subroutine links other data can 
be stored on the stack and stack arithmetic can be performed. 

The stack is normally stored at the top of the user's 512 
words of “RAM" and referenced by the use of a stack pointer 
register (SP) which points to the most recently stacked item. 

When "pushing" onto the stack the pointer is decre¬ 
mented before the accumulator's contents are stored. When 
"popping" off the stack the accumulator is loaded before 
incrementing the pointer. The stack expands downwards 
from location 511. 


25.2 Arithmetic Logic Unit 

ACC — Accumulator. The accumulator holds the 
results of 16-bit arithmetic or logical 
operations. 

R — Remainder Register. The remainder register 

holds the remainder after a divide operation 
while the accumulator holds the quotient. 

OV — Overflow Flag. Set to indicate specific condi¬ 

tions after either an arithmetic or logical 
operation. 

C — Carry Flag. Set to indicate carry. 





A note of thanks to DEC users and 
the entire DEC-compatible community... 



DEXPO™/West 82 

The Second National 
DEC-Compatible Industry Exposition 

Anaheim Convention Center 
Anaheim, California 
December 7-9,1982 


TELL ME MORE ABOUT DEXPO/WEST 82 


.visitor 


□ Send me and my associates_ 

(amount) 

registration tickets and complete information on the 
vendors and products we'll find at DEXPO/West 82. 

□ I'm interested in exhibiting in the DEXPO Shows. 
Send me a prospectus, a floor plan and a complete 
list of exhibitors. 

NAME 

TITLE 

COMFANY 

ADDRESS 


CITY 


STATE 


ZIP 


TELEPHONE ( 


Mail to: Expoconsul International, Inc. 
19 Yeger Road 
Cranbury, NJ 08512 
CALL: 609-799-1661 


1 
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2.6 Architecture 



CPU and System Control Signals 


IT’S 5:30 PM, 
FRIDAY 

Your FORMER programmer just went home. 

He dialed into a non-priv account, let himself 
in through a 'back door'. (|j,82]X.TSK<232)) 

He is now linking the bottom of 0,2] to the 
top with ODT. He is planning a couple of 
custom monitor patches. 

He is not mad anymore... 


LOTS OF LUCK! 

UDCK-11 

NDD 70 James Way, Southampton, PA 18966 
(215)364-2800 


CIRCLE 80 ON READER CARD 


2.7 Execution Cycle 



MAR <- 

PC 

MDR <— 

M 

IR <- 

MDR 


PC <-PC 

♦ 1 



2.8 Data Representation 
2.8.1 Integers 

An integer is held as a 16-bit 2 s complement signed 
integer in one word of store. 


2.8.2 Characters 

All characters are represented by their 8-bit ASCII code. 
Two characters can be stored in one word, instructions being 
available for byte manipulation. 


2.8.3 Instructions 

Each instruction is contained in a single 16-bit word, 
divided as follows: 


15 11 10 9 8 o 



Function 

5 bits 

32 possible values 


Index bit 

1 bit 

2 possible values 


Indirect bit 

1 bit 

2 possible values 


Address 

9 bits 

512 possible values 

f 
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Letters to The RSTS PRO 

. . . continued from page 6 

RSTS, and tasks that require some sophistication 
with its internal operation to make proper response 
or decision, i.e., system generation. As this is my 
background I found the Monday and Thursday 
evening “Carl and Dave Shows” at DECUS very 
helpful, but they didn’t go far enough. Some of the 
handouts were helpful but where do I go if I need 
more details. How about some articles that cover 
RSTS internals, or if this has already been pub¬ 
lished how about a reference list of books or arti¬ 
cles, in this or any other publication that can help 
the newcomer to RSTS. 

You two gentlemen have made, and are continu¬ 
ing to make a very significant contribution to the 
user community with both this publication and 
your many contributions to DECUS, many thanks 
from a newcomer!!! 

Sincerely, Jerry C. Forshee 
Computer Systems Analyst 

Green & Company Inc, CPAs 
Bloomington, IN 
Welcome to the ‘community’, Jerry. We are soon 
going to try to develop a cumulative index of the 
RSTS PROFESSIONAL In addition, RSTS 
internals expert Mike Mayfield has produced a 
manual (see page 43). 

I was just leaving through the back issues of your 
magazine and I happened to see the reprint of the 
photograph labeled “How TECO? Why TECO? 
Can you tell us?” In the the letters to the Editor 
section. (Dec. 1980, p. 19, v. 2, #4) I realize this is a 
little late, but I am offering my answer anyway. I 
will leave it to you to question my honesty but I will 
assure you I am not copying down the real answer 
from a later edition, for even if you did print the 
answer to the puzzle, I would not know for several 
recent issues were lost. 

Answer: It is obvious that the Tampa Electrical 
Companies truck is stuck! The sign says “Cars 
Only” and a truck is not a car! 

What about it — do I get a shirt? 

Yours faithfully, Joseph Yaffee 
Morgan Equipment Co. 

Papua, New Guinea 
Joseph, ‘the TECO affair’ lasted several issues 
(ended June 1981, v.3, #2). Even with that your 
answer is unique — wrong, hut unique. Because of 
that (and because we wouldn’t mind being shown 
off in New Guinea), we might have sent a shirt — 
but alas we don't know your size. 

Dear Carl & Dave, 

I just read in the June issue of the RSTS Profes¬ 
sional your editorials about “break-in artists” play¬ 
ing destructive games, and I quite agree with your 
evaluation (although I would have used the term 
“juvenile delinquents” rather than “children”). 

But tell me . . . how come that one of these 
“children” has just been added to your list of “con¬ 
tributors”? It occurs to me that you could have 
used better judgment. 

Sincerely, Paul Koning 
Raymond, NH 

CA RL: Since you raised the subject, / might as well 
vent some of my feelings regarding the ‘‘Atlanta 
Break-in”. First, some of the blame must rest on 
the persons who set up the RSTS demo system so 
that it could be compromised so easily; some might 
even argue that this was “entrapment”, or making 


it so easy to do that doing it was not a crime. 
Second, while / do not agree with or condone the 
actions of the breakers, l will defend their right to 
free speech. I will not publish articles which have 
no common good or redeeming qualities, and I 
would argue I have met that goal so far; specifi¬ 
cally, all the articles in the June issue are of high 
quality. 

The crime in question was not so much the 
break-in; it was the malicious things that happened 
once the “kids” were in. The ‘POKING’ of the 
monitor and the ensuing system crash were clearly 
not in the best interests of anyone at DECUS save 
the ‘breakers’ themselves. Clearly they should be 
reprimanded, and even monitored while at the 
demo machines, but to censure them would do 
further disservice to the RSTS community we are 
trying to serve. 


DA VE: / really appreciate your letter. / doubt / 
can publish it, or any suitable response without a 
libel suit. 

/ published the article and will publish the next 
after agonizing much — it’s the sin we hate and not 
the sinner. The articles are quite good and show an 
upward trend ... 

[ Want to switch jobs for a few weeks??] 


LETTERS to the 
RSTS Pro . .. 

... is your column! Send us your comments, 
suggestions, photos, or notes of interest to the 
RSTS community. We d enjoy hearing from you. 


Tune up your LA36 



The DS120 Terminal Controller makes your LA36 
perform like a DECwriter® III. 

The Datasouth DS120 gives your DEC writer® II the high speed printing 
and versatile performance features of the DECwriter® III at only a frac¬ 
tion of the cost. The DS120 is a plug compatible replacement for your 
LA36 logic board which can be installed in minutes. Standard features 
include: 



• 165 cps bidirectional printing 

• Horizontal & Vertical Tabs 

• Page Length Selection 

• 110-4800 baud operation 

• 1000 character print buffer 

• X-on, X-off protocol 

• Self Test 


• RS232 interface 

• 20 mA Current Loop interface 

• Top of Form 

• Adjustable Margins 

• Double wide characters 

• Parity selection 

• Optional APL character set 


Over 5,000 DS120 units are now being used by customers ranging from 
the Fortune 500 to personal computing enthusiasts. In numerous instal¬ 
lations, entire networks of terminals have been upgraded to take advan¬ 
tage of today’s higher speed data 
communications services. LSI 
microprocessor electronics 
and strict quality control en¬ 
sure dependable performance 
for years to come. When ser¬ 
vice is required, we will 
respond promptly and effec¬ 
tively. Best of all, we can de¬ 
liver immediately through 
our nationwide network of 
distributors. Just give us a 
call for all the details. 


data@©(A computer corporation 

P.O. Box 240947 • Charlotte, North Carolina 28224 • 704/523*8500 


CIRCLE 73 ON READER CARD 
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DEC 

SYSTEMS 

& 

COMPONENTS 

C.D. SMITH & 
ASSOCIATES, INC. 
12605 E. Freeway, 
Suite 318 

Houston, TX 77015 
(713) 578-8464 

CIRCLE 54 ON READER CARD 


DO YOU REMEMBER THIS? 


(Photo contest, RSTS Professional, Vol. 4, 83, p.101.) 



Photo contests appear in the RSTS Profes¬ 
sional occasionally and readers have until publica¬ 
tion of the next issue to submit their answers. We 
may, from time to time, limit the number of cor¬ 
rect answers eligible to receive prizes. 

I am currently engaged in adding a room to my 
home. In the construction of this room I used some 
exterior grade plywood to brace the corners of the 
new room. This plywood has stamped on the back 
the symbol ‘Teco Tested’. 

Reference is now (finally) made to the photo 
contest. Although my ‘Teco Tested’ item is ply¬ 
wood, the item pictured in the photo appears to be 
composition board or pressed-wood. 

My tee-shirt size is large. Joe Sanders 

Metrodata Computer Systems, Inc. 

Dallas, TX 

The photograph shows a piece of Teco Tested 
particle or chip board. 

We enjoy your publication very much and are 
looking forward to the DEC Professional. 

Paul Bates, President 
RYO Theatre Services Ltd. 

Toronto, Ontario 

Wood products, such as particle board are “Teco 
Tested.” Looks like chip board in the photo. 

Bill Van Vechten 
Hawaii Preparatory Academy 
Kamoela, HI 

P.S. Size Medium T-Shirt. Thanks! 

Joe, Paul, & Bill, 

You are correct, you are the only respondees, 
you are receiving T-shirts. (We should have asked, 
"How? Teco Tested?"!) 

? 


Dear RSTS Man 

. .. continued from page 36 

MB will provide an amazing im¬ 
provement. The 70, however, will re¬ 
quire that you upgrade your con¬ 
troller to Mass Buss compatible 
level. The 44 will provide you with a 
good 20-25job system whereas a 70 
should yield 45 jobs. Of course, 
these are ball-park figures stated in 
complete ignorance of your ap¬ 
plication. The improvement you 
should see first is relief from swap¬ 
ping. Always configure enough 
memory to hold your job max times 
your swap max plus monitor, run¬ 
time systems and resident libraries 
(after all, they are practically giving 
the megabytes away today). The 
above is true for both 44’s & 70’s. 
The next obstacle you hit will be 
either cpu or disk boundedness. 
(Note, small buffers are no longer a 
problem in V7.1.) This will be ap¬ 
plication dependent. Let’s hope 
that by then, you can afford a sec¬ 
ond system. 

DEAR RSTS MAN: 

There has been a lot of confu¬ 
sion about why RSTS/E limits pro¬ 
grams to 31KW rather than 32KW. 
The reason for this limitation is 
quite simple. It’s all for the lack of 
one byte. 

Several routines within the 
monitor need to check that the 
user’s buffer is within his program 
area. These routines do this by 
comparing the address just 
beyond the end of the buffer to the 
address just beyond the end of the 
job. 

If the job is allowed to be 32KW, 
its highest legal address is 177777 
(octal). Adding one to this number 
causes an integer overflow and a 
resulting value of 0. This says that 
all buffers must end before loca¬ 
tion 0, an obvious impossibility. 

This problem can be corrected. 
In fact, I think not correcting it 
before now may have been an over¬ 
sight on the part of Digital. Most of 
the routines within the monitor, in¬ 
cluding memory management and 
swapping, handle 32KW just fine. 

I will work up a patch to RSTS 
V7.1 to allow handling of 32KW 
and send it to you for a future 
issue. Until then, I hope this ex¬ 
planation helps your readers 
understand the 31KW limitation. 

Mike Mayfield 

Northwest Digital Software ¥ 


August 1982 



COBOL 

SOFTWARE SOLUTIONS 
FOR PRODUCTION AND 
FINANCIAL CONTROL 


Available on 

VAX 

in native mode 

PDP11 

under RSX or RSTS 


OFF-THE-SHELF SUPPLY 
Enquire about our 
30-DAY TRIAL 
ON YOUR MACHINE 



FULL FACILITIES FOR: 


General Ledger- 
Accounts Receivable- 
Accounts Payable- Sales Orders- 
Stock Control- Purchasing- 
BOM-Works Orders -MRP- 
Work in Progress Monitoring 


Send for 

FEATURE WALL CHART 
to: 

COMPUTER SYSTEMS 
DEVELOPMENT (CSD) LTD. 

75 Marylebone High Street, 
London W1, England. 

Tel: 01-935 2255 


CIRCLE 150 ON READER CARD 
























PRACTICALLY SPEAKING 




Sooner or later you will be using electronic 
mail. It just makes good sense. When you do, 
you will want a system that is complete—a 
delivery system, a scheduling system, and an 
information manager. Your electronic mail 
system will become an essential part of your 
office environment. USER-MAIL is such an 
electronic mail system* 

USER-MAIL’s power is easy to control. It 
relates to the way you work. Electronic IN, 
OUT, and HOLD baskets are just what you 
would expect. You can scan your IN basket, 
selecting only those message subjects you 
wish to read. Or, you can place a 
message into your HOLD basket for a 
number of days to have it automati¬ 
cally reappear in your IN basket on 
the appointed day. You can even have 
USER-MAIL recall specific messages 
by providing your own selection 
criteria. Replying, forwarding, and 
sending to groups are as easy as can 
be. And these are just a few of the 
features in store for you. 


You owe yourself a closer look. 
Write for a brochure or give 
us a call direct. 




■00001 

■ffiOQOi 

aoooo9 


‘USER-MAIL is currently available on DEC computers using the RSTS operating system 
RSTS is a registered trademark of Digital Equipment Corporation. 

USER-MAIL is a trademark of Logic extension Resources 


North County 
Computer Services, Inc. 

2235 Meyers Ave., 

Escondido, California 92025 
(714) 745-6006, Telex: 182773 


CIRCLE 76 ON READER CARD 















page 82 August 1982 

RSTSPR0FE5SI0NALJ*STSPR0fT^I0NAIJ*STSPR0FESSI0NAlJGT3PR0FESSI0NALRSTSPR0FE5SI0NAlJ*ST5PR0^ 


CLASSIFIED 


Send Classified Ads to: RSTS Classified. P.0. Box 361. Ft. Washington. PA 
19034-0361. s 1°° per word, first 12 words free with one year's subscrip¬ 
tion. [Be sure to include a phone number or address in your message ] 


RK05 Disk Packs — $25.00 each. (Used) 
Cleaned and Certified. (714) 262-2425. Mr. 
Binkley. 

Australasian Financial Management 
Systems — CCS PO Box 69 Manuka Act 
2603 Australia. 

Decwriter LA36, EIA RS232 W/AJ242 
Acoustic coupler $950 (516) 889-3838. 

Access Loves RSTS/E, DEC, DECUS, AND 
THE RSTS PRO! (617) 881-5174. 

RSTS CHEAP! 

$350/PORT, S20/MB 

on WALL STREET, NYC 

Local error-free dial-in 
or leased line termination 

and in PHILADELPHIA 

DEC 11/70, 24 hrs, 7 days 
Secure Backups 
B+2. DIBOL. COBOL81 
DATATRIEVE, WORD-11. EDT 
Secured by LOCK-11 

NATIONWIDE DATA DIALOG 

DAVEMALLERY 215-364*2800 


RSTS 

RESCUE SQUAD 

We salvage all kinds of disasters: 

• unreadable disks 

• ruined UFDs and MFDs repaired 

• immediate response 

• telephone DIAL-UP 

• on-site 

• software tools 

• custom recovery 

• 90% success to date 

• more than 1 GB rescued to date 

Brought to you by 

On Track Systems, Inc. 

and a well known (and read) 
RSTS expert. 

CALL 24 HOURS 
215-542-7133 


LOOKING FOR 
DEVELOPMENTTIME? 


NO KIL0C0RE TICK CHARGES 
NO CPU CHARGES 

RSTS E TIME 

BASIC PLUS 2 

COBOL 

BASIC PLUS ^ WITH CROSS 
PASCAL > COMPILER 
C" J SUPPORT 

WORD-11 WORD PROCESSING 

PROGRAM 


PER HOUR 
CONNECT 
TIME 


WAFE 

TEC0 

EDT 


} 


BUDGE1 
BYTES 1 
212 - 
944-9230/ 


EDITING 


* ©[Mocomputerr 

■ 1430 Broadway, New York, N.Y. 10018 


DEC BEST VALUES 


PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 
SYSTEMS • CPU’s • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 979-2844 


dataware 

incorporated 


Canco Center 
2845 NW 62nd Street 
Ft Lauderdale. Florida 33309 
Telephone (305) 979-2844 



Software Performance Research provides 
Washington, D.C. area with RSTS Manage¬ 
ment assistance. Call (703) 455-3757. 

RSTS/E consulting — L.A., Orange County 
— Raymond Haas (213) 375-5993. 

SYSTEM MANAGER/PROGRAMMER/ANA¬ 
LYST — Rapidly expanding five year old 
service bureau seeking qualified, self- 
motivated career professional to enhance 
existing medical group A/R software and 
manage two RSTS/E systems. 3-5 years ex¬ 
perience RSTS/E, Basic Plus required. Ex¬ 
cellent salary and benefits reflect high level 
of responsibility entailed in directing proc¬ 
essing for over 100 clients. Excellent oppor¬ 
tunity with growing company. Send resume, 
references and salary history to: Telecom 
Computer Systems, 7302 N. Richmond, 
Portland, Oregon 97203. 


DEC 

New LAI 20-DA.$1895 

Used VT-100 

Terminals .$ 995 

New RK07s, Used TS-lls, 
Used ROM2s 
Used GDC 

Communication Equipment 

SPARTIN SYSTEMS 
713 / 496-0771 
14925-A Memorial 
Houston, Texas 77079 


PROGRAMMER — RMS11 and BASIC + 2 
experience required. RSTS/E preferred but 
not essential. Expanding data processing 
operation with 46 yr. old electronic firm. 
Challenge for growth. Mail resume only to 
Herbach and Rademan, Inc., 401 E. Erie 
Ave., Phila., PA, Att: Al Shrager. 

FOR SALE: PDP-11/44, 256KW, RK07’s, 
DZ11, LA34, TJE-16 Mag Tape, RSTS/E and 
other licenses. George Arnold (414) 
784-8250. 


The FAMOUS 
RSTS PROFESSIONAL 
TEE-SHIRT 
is now for sale! 

Send size desired and $6.95 
for each shirt to: 

RSTS TEE-SHIRT 
P.O. Box 361 

Ft. Washington, PA 19034-0361 
Shirts available in adults sizes only: 
Small - Medium - Large - X- large 



SAVE MEMORY 
WITH TYPE 

TYPE for V7.0 reduces the system 
requirements for printing text 
files from disk to users’ ter¬ 
minals. 

Memory requirements: 

• IK run-time system 

• IK user job 

< 10 TYPErs occupy 11K, 

10 PIPers occupy 164K. > 

Selectable features: 

• output multiple copies 

• send form feed 1st 

• no “Ready” 

• print file name, then file 

• Y/N print file query mode 

• binary mode for ESC seq., etc. 

Other features: 

• uses a 1,024 byte disk buffer 

• allows wildcard file names & ext 

• handles multiple files 

introductory price: $100.00 for 
800 or 1600 BPI mag tape. Other 
media at higher cost. 

For more information, contact 
Erskine Software, Dept. TYPE, 
Box 86, Due West, SC 29639 or 
call (803) 379-8816. 


t PLAN PLUS \ 


I 


The Financial Planning 
& Reporting System 

PLAN PLUS LTD 

PO BOX 327 LONDON W4 40D 

TELEX 8813271 GECOMS G 

Telephone 01-834 7334 ex 7935 


■ 

I 
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WIGGIT is here on page 39! Keep looking 
for more Infinity Software games! 


V 


$200. RSTS/E* %, 
WORD PROCESSOR ' 
CBEDIT.BAS 


Basic-Plus* program with VDT input, 
window edit and document save. Add, 
locate, global change, replace, delete, 
block move and file merge, etc. Crash 
and operator error recovery. Supports 
DEC, Hazletine and Mime standard 
VDT’s. Others easy to add. 

Fully formatted output (margins, jus¬ 
tify, center, underscore, super-sub- 
script, headers, page numbers, etc.), 
to typewriter, line printer or disk. Bidi¬ 
rectional driver for Diablo-Xerox 16-17. 


User’s manual and source 
code included. 

9-Track $200. RK05 $260. ppd 
T.F. Hudgins & Associates, Inc. 
P.O. Box 10946, Houston, Texas 77018 
Woods Martin 713/682-3651 

*TM Digital Equipment Corporation 


REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS! 

All content in this publication is 
copyrighted. 

All reprints must be purchased 
from M Systems, Ihc. No other 
reprints are authorized. 

All reprints shall contain both a 
cover and a subscription blank. 

Price quotation available on request. 


ALL 12 BACK ISSUES OF 
THE RSTS PROFESSIONAL 

S8S.00 

Send check to: 

THE RSTS PROFESSIONAL 
P.O. BOX 361 

FT. WASHINGTON, PA 19034-0361 
— Payment Must Accompany Order — 


LOOK at the “tear-out” cards in 
this issue. 

There are subscription cards for you 
or a friend. 

There’s a FREE gift for you. 

Bring in new subscribers and collect 
rewards. See “BOUNTY HUNTERS” 
card. 

There's a READERS INQUIRY card 
for your convenience. 


NEWS 

RELEASES 



Occasionally we are requested to print news that may be of interest 
to the RSTS community. We are happy to offer this feature to our 
readers. We reserve the right to print only as time and space 
permit. We cannot return photos or manuscripts. Send news 
releases to: RSTS News Release. P.O. Box 361. Ft. Washington. PA 
19034-0361. 


DEC USERS ATTENDING ANAHEIM 
DECUS MEETINGS TO GET FREE 
ADMISSION TO DEXPO/WEST 82, Ana¬ 
heim Convention Center, Dec. 7-9 
Anaheim, CA — Registrants for the 
DECUS (Digital Equipment Corp. Users 
Society) Conference to be held in Ana¬ 
heim next December will be able to use 
their badges for free registration to the 
nearby DEXPO/WEST 82 exposition. 
DEXPO/WEST 82 - The Second 
National DEC-Compatible Industry Expo¬ 
sition — will be held at the Anaheim 
Convention Center, December 7-9, 1982. 
"This policy makes it even easier for DEC 
users to find the DEC-compatible pro¬ 
ducts and services they need to improve 
their systems," said Larry Hollander, pres¬ 
ident of Expoconsul International, Inc., 
organizers of the DEXPO Show. Nearly 
5,000 DEC users are expected to attend 
the DECUS meetings. "We're making it 
possible for all of them to visit the Show 
while they're here," Hollander added. 
DEXPO/WEST is expected to attract 
8,000 DEC users. 

At the same time, Hollander announced 
that demand for exhibit space in the 


Show had forced the expansion of DEX¬ 
PO/WEST. The new floor plan will make 
DEXPO/WEST twice the size of the first 
DEXPO Show held last May. "A good 
number of returning exhibitors are dou¬ 
bling and tripling the size of their exhib¬ 
its," Hollander said. "And they are being 
joined by new exhibitors almost every 
day." Already the world's biggest exhibi¬ 
tion of DEC-compatible hardware, soft¬ 
ware, services and supplies, DEXPO/ 
WEST can now accomodate up to 250 
exhibitors. Hollander expressed confi¬ 
dence that all space will be taken well 
before the Show opens. 

DEC users and vendors of DEC- 
compatibles can get additional informa¬ 
tion on DEXPO/WEST 82 and 
DEXPO/EAST 83 - at the Kiel Audito¬ 
rium, St. Louis, May 22-24 — by contact¬ 
ing Expoconsul International, Inc., 19 
Yeger Road, Cranbury, NJ 08512; tele. 
(609)799-1661. 


NEW ASYNCHRONOUS SERIAL INTER¬ 
FACE FOR LSI-11 COMPUTERS, 
INCORPORATES THREE DIFFERENT 
INTERFACE CIRCUITS AND PRINTER 
BUSY DETECTION 
Orange, CA — A new asynchronous 
serial interface for LSI-11 computers, 
from MDB Systems, Inc., the world's 
largest independent manufacturer of 
interface products, offers complete DEC 
DLV11-F compatibility plus the advan¬ 
tages of a unique "buffer ready" signal 
capability and RS-422 interface circuitry. 
The buffer ready monitor increases com¬ 
puter thruput when used with printers 
that do not provide X-on/X-off protocols, 
or the software does not monitor these 
protocols. 

Printer Busy monitor circuit in the EIA 
modes. This feature allows connection to 
a variety of economical serial interface 



MLSI-DLV11-FX, asynchronous serial interface with EIA RS-232-C, 20 MA current loop and 
and RS-422 interface from MDB Systems, Inc. 
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printers such as the TI810, Centronics 
704 or Teletype 40 — printers which 
present the transition of a buffer-full 
status line from a SPACE (+12VDC) to a 
MARK (-12VDC) when the printer buffer 
is full and no further data should be sent. 
The Buffer Ready circuit allows the prin¬ 
ters to be run at maximum speeds with 
no danger of buffer overrun. The RS-422 
capability allows placement of printers, 
Video Display Terminals or other devices 
with-corresponding circuitry at distances 
up to 4000 feet from the host computer. 

Also unique to the MDB interface is the 
availability of four levels of priority inter¬ 
rupts (as compared to one level for DEC 
DLV11-F) which allows the assignment of 
priority to high speed devices. The MLSI- 
DLV11-FX offers a serial EIA-RS- 
232C/CCITT V.24, 20 MA current loop, 
as well as an RS-422 interface. Baud rates 
are programmable and switch selectable 
from 50 to 19.2K baud. Also switch 
selectable are the Word Character For¬ 
mat, the Address and Interrupt Vectors. 

For further information: Jonnda Perry, 
Director of Marketing Administration, 
MDB Systems, Inc., 1995 N. Batavia 
Street, Orange, Calif. 92665. 

Price: $385.00 in single units. Delivery: 
3 Days ARO. 


EEC SYSTEMS ANNOUNCES THE 
AVAILABILITY OF LEX-11 
Wayland, MA — EEC Systems announces 
the availability of LEX-11, a multi-user 
word and data processing software pack¬ 
age designed for use on DEC PDP-11, 

LSI-11 and VAX Computers. Designed 
under the RSTS/E operating system it 
also runs under the RT-11, RSX-11M, 
TSX-PLUS, UNIX, IDRIS and VMS in the 
compatibility mode. The complete system 
requires only 300 blocks of disk space 
and can be run on an LSI-11 with 32K of 
memory. The run-time system uses 8KW 
of memory and on multi-user systems 
LEX-11 requires less than 16KW per user. 
The system is re-entrant and common 
code has been used whenever possible. 

LEX-11 can be used for such tasks as 
personalized mass mailing, contracts, 
standard forms, manuals and statistical 
tables. It can be utilized for invoice 
production, list processing, generating 
custom forms and data management. It 
can also be used in conjunction with a 
typesetting machine. All operations on 
LEX-11 have been designed to make 
things as easy as possible for the user. 

Some special features of LEX-11 
include: 

# Full screen editing 

# LEX-11 supports almost any terminal 
and different terminals 

# It produces standard ASCII text files 
and can be interfaced with other DEC 
software 

# Programmers can edit their own pro¬ 
grams using LEX-11 

# Users can reprogram terminal keys to 
perform any operation 

# The visual calculator allows for 
mathematical operations to be incorpo¬ 
rated in a document 

# LEX-11 works the same way for the 
user on all operating systems 

# Users can create custom forms for their 
own applications 


• Users can define their own menus 
according to their application 
requirements 

• Other features include graphics, 

90,000 word spelling dictionary and list 
processing. 

EEC Systems specializes in DEC PDP- 
11 based hardware, and software which 
runs on the PDP-11 and VAX computers. 

For more information contact: Eric Dick- 
man, EEC Systems, 286 Boston Post Rd., 
Wayland, MA 01778, 617-358-7782. 


EMULEX, CDC EXPAND PRODUCT 
SERVICE COVERAGE 
Santa Ana, CA — Emulex Corporation 
and Control Data Corporatio have 
expanded their third party service agree¬ 
ment to include the Emulex CS11 series 
of communictions multiplexer products. 

Under the original agreement, Control 
Data's Engineering Services Organization 
provides complete maintenance and 
spares stocking for Emulex disk and tape 
controllers used with Control Data peri¬ 
pheral storage devices on PDP-11 and 
LSI-11 computer systems made by Digital 
Equipment Corporation. In the major 
service areas, maintenance service cover¬ 
age is available for entire PDP-11 or 
LSI-11 systems, including the CPU, 
memory and other options. 

This agreement has now been amended 
to include the CS11 series communica¬ 
tions multiplexers made by Emulex. The 
change is significant because it adds 
Emulex products which don't involve 
Control Data Peripherals, according to 
Phillip (Flip) Begich, Emulex director of 
national marketing. 

'The communications products have 
been added primarily because of demand 
from Control Data service customers for 
them to handle all Emulex products," 
Begich said. "Control Data has been 
doing an excellent job of providing total 
DEC system service at competitive prices 
for several years, and a big plus is that 
they offer maintenance of mixed vendor 
systems from a single source." 

The Control Data service is available 
for complete DEC systems in 17 cities 
around the United States, with another 
five to be added during the first quarter 
of 1982. Service for subsystems-only is 
available in those same cities, with an 
additional 20 or more cities planned for 
addition in 1982. Subsystem mainte¬ 
nance of Emulex/Control Data products 
is also available in Canada, the U.K., and 
Germany. Control Data also supports 
Emulex's own System Group for end user 
installation and service in the United 
States. 

Based in Santa Ana, Emulex Corpora¬ 
tion is the leading supplier of disk, tape 
and communications controllers for use 
in interfacing a wide variety of peripheral 
devices to computers made by Digital 
Equipment Corporation. 


INDEPENDENT USERS GROUP HOSTS 
FALL CONFERENCE AND EXPOSITION 
Warwick, RI — You will have to be in 
Boston, Massachusetts on October 4 - 6 to 
meet the best of the DEC-related commun¬ 
ity at IRUS '82, a Conference and Exposi¬ 
tion for DEC users, sponsored by the 


Independent RSTS Users Society (IRUS) 
and Hardcopy Magazine. 

IRUS, a user-run, user-supported organ¬ 
ization of RSTS, VAX and other DEC 
installations, began holding fall conferen¬ 
ces three years ago. Due to their success 
attendance at the conferences has 
doubled every year. In addition to a 
seminar program, last year's conference, 
Access-11, included a large-scale DEC 
compatible trade show — the very first of 
its kind — with 20,000 square of exhibi¬ 
tion space and an in-depth representation 
of compatible software, hardware and 
services. The IRUS tradition continues 
this fall at the Park Plaza Hotel and 
Exposition Castle in Boston with an 
expanded series of seminars, workshops, 
panel discussions, and an exposition that 
covers the range of DEC compatible 
products. 

"IRUS '82 is much more than a DEC- 
compatible trade show/' explains Monica 
Collins, chairman of the group. "IRUS '82 
is the one and only conference for the 
DEC-related community and will offer its 
participants an unrestricted view of the 
entire marketplace — ideas and products. 
The information and contacts made at 
IRUS '82 will benefit users and vendors 
alike." 

Last fall's successful conference held at 
the Hartford Civic Center in Connecticut 
was truly a national event attended by 
people from 22 states, Canada, England 
and Israel. The Boston location this 
October provides vendors access io the 
heart of the East Coast market, and with 
an international airport; and extensive 
accomodation facilities, travel to IRUS '82 
from anywhere in the world will be 
convenient. 

The conference includes a program of 
seminars, workshops, and panel discus¬ 
sions that follow the theme of "Options 
for the '80s". Topics include technical 
and managerial concerns and aspects of 
RSTS, VAX, VAX conversions, the influ¬ 
ence of micro-computers on the DEC 
user, communications and distributed 
processing for the DEC user and more. 
Sessions have been planned that com¬ 
pare many of the operating system soft¬ 
ware available for PDP-11 computers 
including UNIX. 

Monica Collins sums up the goal of the 
conference: "IRUS has been built on the 
free flow of information, and it is in that 
spirit that IRUS '82 will convene the 
widest variety of informed viewpoints 
available in the DEC world." 

Some exhibition space is still available. 
Contact Dame Associates, 51 Church 
Street, Boston, MA 02116; (617) 482- 
3596. 

Since seminar space is limited, people 
interested in attending should pre- 
register before September 10th. Contact 
IRUS '82, 3657 Post Road, Suite 4, 
Warwick, RI 02886. (401) 738-4430. 


CALOUT CATCHES ON 

Provo, Utah — Clyde Digital Systems, 

Inc. reports a large and rapidly growing 
user base of its communication utility 
program CALOUT. Users report that they 
are particularly pleased with the ease of 
use provided by this package. In compar¬ 
ison with products such as DECNET users 
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are also discovering the remarkable cost 
effectiveness of CALOUT. 

With CALOUT a separate license is not 
required for each correspondant compu¬ 
ter. Users license their own computer and 
then dial up any system they desire. 

There is no additional costly licensing as 
with DECNET and similar products. This 
kind of cost break, together with the 
powerful file transfer features included 
from the beginning, are clearly responsi¬ 
ble for CALOUTs first choice rating 
among users today. 

User's also note the advantages of 
CALOUTs unique error detection and 
correction capability. It is particularly 
good at handling communication prob¬ 
lems that result in data that is dropped or 
lost in transmission. This is in addition to 
correcting data that is transmitted in 
error. 

Experience to date with this product 
indicates a popular misconception about 
transfer speeds. Basically, a product of 
this type is only limited in transfer speed 
by the baud rate of the hardware link 
employed. DECNET has enjoyed the repu¬ 
tation of fast transfer largely because of 
the bundling of special high speed hard¬ 
ware with the product. CALOUT may also 
be used with special high speed hard¬ 
ware for the same speed advantages. 
Actually speed is found not to be a 
relevant issue in product comparison. 

For further information call or write: 
Lisa-(801) 224-5306, 3707 N. Canyon 
Rd., Provo, Utah 84604. 


SOFTWARE TECHNIQUES, INC. 
ANNOUNCES NEW EDITION OF RSTS 
PERFORMANCE TOOLS 
Los Alamitos, CA — Software Techniques, 
Inc. today announced the latest version of 
DISKIT, the popular disk management 
"tool kit" for DEC RSTS users. DISKIT 
version 5.0 includes 5 software products: 

• DSU — Disk Structuring Utility optim¬ 
izes disk directories and improves system 
performance (often by as much as 35%). 
DSU also performs fast disk-to-disk 
backup. 

• RDR — High-Speed Directory Re-Order 
program which improves system perfor¬ 
mance by reducing the number of disk 
accesses required to find and retrieve 
files. RDR is 30 times faster than the 
DEC-supplied utility REORDR and pro¬ 
vides many additional features. 

• DIR — Ultra-High Speed Directory 
utility which searches directories at the 
rate of 400 files/second. DIR supports all 
of the functionality of Digital's DIRECT 
and can be used as a replacement for 
DIRECT in all applications. In addition, 
DIR provides a large number of features 
not found in DIRECT, including powerful 
tools for improving system security. 

• DUS — Disk Utility Subroutines package 
allows system managers to develop their 
own special-purpose disk utilities. DUS 
interfaces to BASIC-PLUS-2 and CSPCOM 
programs. 

• OPEN — Open Files Display Program 
monitors file accesses on a job-by-job 
basis. 

The major improvements in version 5.0 
include new features in DSU, a complete 
re-write of DIR to improve speed and add 


significant new features, improved docu¬ 
mentation, and the inclusion of RDR. 

DISKIT version 5.0 is licensed for 
single CPUs for a one-time fee of $1,350 
(U.S., quantity 1). Multi-CPU, OEM, edu¬ 
cational, and quantity discounts are avail¬ 
able. DISKIT is supplied with 
comprehensive documentation and a 90- 
day warranty. 

First shipped over a year ago, DISKIT 
version 4.0 pioneered RSTS system man¬ 
agement utility market. Since its release, 
DISKIT has sold more copies than all 
other RSTS disk management utilities 
combined. 

Software Techniques, Inc., headquar¬ 
tered in Los Alamitos, California, is one 
of the world's leading minicomputer con¬ 
sulting groups. Specializing in Digital's 
RSTS/E and VMS operating systems, 
Software Techniques provides products 
and services world-wide, ranging from 
business accounting software packages to 
high-technology consulting services. 


INTRODUCING C-CALC - 
A GREAT IDEA PERFECTED! 

Kirkland, WA — First came Personal 
Software's VISICALC, the first generation 
of a great idea — an electronic spread¬ 
sheet for microcomputers. Then came a 
variety of spreadsheets adapted to run on 
some of the "big" machines. Now, 
DIGITEC Software Design, Incorporated 
is proud to announce the third and finest 
generation of electronic spreadsheets — 
C-CALC, the state of the art! 

Written in the extremely CPU-efficient 


"C" programming language, C-CALC hs 
been engineered for optimum machine 
efficiency and ease of use. C-CALC is 
extremely user-friendly with an extensive 
ON-LINE HELP feature and built in train¬ 
ing procedure. Even those with little or no 
computer experience are able to take 
advantage of computer assisted decision 
making. 

C-CALC lets you experiment with any 
number of financial alternatives and 
determine their results in minutes. Plans 
can easily be tested, evaluated, and 
modified. Boardroom quality reports are 
available in seconds. C-CALC helps you 
answer "What if" questions with ease, 
speed, and accuracy. 

An added feature of C-CALC is its 
transportability between most different 
types of computer systems. If your com¬ 
pany has more than one type of compu¬ 
ter, data may be easily transported 
between them. System upgrading poses 
no problem. C-CALC does not require 


use of particular terminal types and takes 
advantage of the characteristics of indi¬ 
vidual terminals — most terminals may 
be easily accommodated. 

C-CALC offers many advanced features 
not available in the earlier spreadsheets. 
Use of 'menus' rather than confusing 
multi-level function keys makes C-CALC 
much easier to use. A comprehensive 
worksheet consolidation feature allows 
consolidation by label, by entire work¬ 
sheets, and consolidation of 'percentages' 
of amounts into other worksheets — great 
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for overall corporate planning. Some of 
C-CALC's other advanced features are: 
computed coordinates, support of up to 
120 labels, choice of alpha or numeric 
coordinates, variable column widths, if- 
then-else, text is allowed in equations, 
and cells may be set to blink, bold, or 
underline on a specified condition. C- 
CALC's most striking feature is, without a 
doubt, its speed and CPU efficiency. More 
users may simultaneously use C-CALC 
without taxing your system. 

All DIGITEC Software Design, Inc. pro¬ 
ducts include a full year of cost free 
maintenance and extensive customer sup¬ 
port. Regular update releases provide our 
users with a constant source of the most 
advanced, state-of-the-art products on the 
market. DIGITEC is currently seeking 
distributors for all markets. For more 
information, please contact: DIGITEC Soft¬ 
ware Design, Inc., 14125 108th Avenue 
N.E., Kirkland, WA 98033, (206)821- 
7507. 


ENGLISH COUNTRY HOUSE BECOMES 
MARKETING AND SUPPORT CENTER 
Irvine, CA — ABLE Computer has moved 
its English Marketing and Support Center 
into a country house about 45 miles west 
of London. The new center will be the 
focal point for all sales, service , repair 
and training in the United Kingdom, 
Belgium and the Netherlands. 

The building was chosen partly for 
quaintness and location but primarily for 
size, according to Bob Jones, Interna¬ 
tional Director of Marketing. Jones said, 
"We really needed the room. We had 
already outgrown our original office and 
decided to get excess space now rather 
than move soon again to accommodate 
the growth which is anticipated. That's 
why we bought a two-story brick house 
with 1500 square feet of floor space on a 
half-acre lot in the English countryside. 
This gives us a one hundred and seventy- 
foot frontage on the A-4 leading into 
Newbury and offers our customers a real 
sense of company presence in the United 
Kingdom." 

Roger Scarlett has been Marketing 
Manager of the English office for the past 
two years and will continue in the same 
capacity at the new facility. Under his 
direction the building has been remo¬ 
deled to contain offices, a display area 
and repair facilities on the first floor and 
guest quarters on the second. The 
address is ABLE Computer, ABLE Compu¬ 
ter House, London Road, Newbury, Berk¬ 
shire, England RG13 2QJ. The telephone 
number is 44 (0635) 32125, and the 
TELEX is 848715 ABLE G. 

ABLE is the world's largest independent 
supplier of enhancement interfaces for 
the VAX, PDP-11, System 20 and LSI-11 
series of computers. The company manu- 
factuers an extensive line of communica¬ 
tions, memory and general-purpose 
products all of which are hardware com¬ 
patible with and software transparent to 
the host machine. They are supported 
and serviced worldwide with offices and 
plants located throughout the United 
States and Canada, as well as England, 
Germany and Puerto Rico. 


NEW DMA INTERFACE MODULE WITH 
USER IMPLEMENTABLE THROTTLE TO 
OPTIMIZE COMPUTER PERFORMANCE 
FROM MDB SYSTEMS 
Orange, CA — MDB Systems, Inc., the 
world's largest independent manufacturer 
of computer interface modules, has 
developed an improved version of a 
DR11-W module for DEC Unibus and 
VAX computers that maintains full 
operating and diagnositc transparency to 
DEC software. 

The MDB DR11-W has in addition to all 
of DEC's capabilities, a switch selectable 
DMA throttle that controls the peak rate 
problem by allowing optimum data 
transfer without affecting overall CPU 
performance. 

MDB marketing manager, Stan 
Margulis says the DMA throttle feature 
lets the system designer specify the 
average thru-put rate of the DMA Link or 
Port so that a smaller CPU can perform 
the same job as a larger unit, or a user 
can get more from an existing system. 

Another of the unit's features is that it 
uses on-board self test diagnostics. Micro 
sequencer driven, the switch selectable 
test features monitor DMA read/write 
cycles to and from memory and generates 
16 unique data patterns for 
read/compare testing. Edge mounted 
LEDs indicate to the user any error 
conditions. 

All operating parameters of the MDB- 
DR11-W are selectable from edge 
mounted switches, thereby precluding the 
powering down of the system to remove 
the board to change modes or operation. 
Eight addresses and interrupt vectors are 
stored in PROM and are independently 
switch selectable, including DEC 
recommended assignments. 

Bus control and DMA cycle timing are 
controlled by delay lines for high speed 
and precise cycle timing. 

All of the MDB unique features which 
are not available on DEC's DR11-W, will 
assist the user in quick fault isolation and 
reduce the cost of ownership and 
maintenance. 

The MDB-DR11-W is priced at $1,500 


in single quantities. Delivery of units is 
scheduled for September. 


RSTS/E: VMS USERS INSPECT BEFORE 
THEY BUY 

Bedford, MA — Clyde Digital Systems 
has recently announced that by means of 
its new computer to computer 
communication software CALOUT, actual 
product will be transferred to user sites 
previous to purchase. Through the 
imaginative use of the CALOUT utility, 
CDS is attacking historic apprehensions 
surrounding the acquisition of packaged 
softwre from non-local vendors. 

CDS can transfer the following 
packages to RSTS/E and VAX users 
equipped with a dial in line. Serious 
buyers then have the opportunity to 
inspect and evaluate these products 
before a 30 day latch is executed. 
CALOUT permits user to dial up a second 
CPU and exchange data files of any kind. 
CONTRL provides remote interactive 
training and user support. Complete log file 
of season may be kept. 

DOC makes 4 logical terminals out of 1 
physical terminal. Complete log files of 
each job session may be kept. 

IMAGE allows DOC log file to be played 
back intelligently, one frame at a time. 
MONITR records entire dialog of selected 
job session in a secured log file. This is 
invisible and unintrusive to users being 
monitored. 

LOCK simplifies and generalizes menu 
creation. Limits user to authorized menu. 
Records tasks run. 

VAX users please note that CALOUT is 
the only package presently available on 
VMS. All others will be announced 
shortly. 

Full support and all necessary 
documentation is provided to ensure 
success during and after the approval 
period. 

For detailed information on this offer or 
for information on how to use CALOUT in 
similar fashion contact: Clyde Digital 
Systems, P.O. Box 348, Bedford, MA, 



MDB-DRI1-W — Direct Memory Access Interface Module for UNIBUS and VAX Computers 
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PERSONAL 
& PORTABLE 

New concept in computers. 
Available internationally. 
Reasonably priced. 

Submitted by Pauline Noakes 
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LSI-11® compatible controller 
for 80-300MB CDC, 

Ampex and Fujitsu CMD/SMD 


Dataram Corporation offers the industry’s 
widest range of DEC-compatible 
peripheral controllers — from 
comparatively simple NRZ1 tape 
controllers to complex 300 MB storage 
module drive (SMD) controllers. 

An impressive array of state-of-the-art 
controllers, all built around high-speed 
bipolar microprocessors. All software 
compatible with the host LSI-11, 
PDP®-11, or VAX® minicomputer...and 
all available now. 

And Dataram’s controllers are designed to 
save you money, and, more importantly, 
space our controllers typically occupy 
half the space required for the comparable 
controller from DEC. Doing it with a 
level of performance that makes any 
member of this family worth looking at. 

The chart shows our current family of 
peripheral controllers, growing every day. 
If you don’t see the controller you need, 
we’re probably working on it right now. 
Call us and discuss your requirements. 


DATARAM 

CORPORATION 


Princeton Road 
Cranburv, New Jersey 08512 
Tel: 609-799-0071 TWX: 510-685-2542 


CONTROLLER 

DESCRIPTION 

COMPATIBILITY 

C03 

Cartridge disk controller 

RK05 

C33 

Cartridge disk controller 

RK05 

T03 

NRZI mag tape controller 

TMII/TU10 

T04/C 

Mag tape streamer coupler 

TMI1/TU10 

T04/N 

NRZI mag tape controller 

TM1I/TU10 

T04/D 

Dual density mag tape controller 

TMII/TUI0 

T34/C 

Mag tape streamer coupler 

TM11/TU10 

T34/N 

NRZI mag tape controller 

TM11/TU10 

T34/D 

Dual density mag tape controller 

TM11/TU10 

T36 

Dual density mag tape controller 

TMI1/TU10 

T34/T 

GCR mag tape controller 

TM11/TU10 

S03/A, S04/A 

80 MB/300 MB SMD controller 

RM02/RM05 

S03/A1, S04/AI 

80 MB/160 MB SMD controller 

RM02 

S03/B 

80 MB/300 MB SMD controller 

RK07 

S03/C 

200 MB/300 MB SMD controller 

RP06 

S03/D, S04/D 

96 MB CMD controller 

RK.06 

S33/A 

80 MB/300 MB SMD controller 

RM02/RM05 

S33/A1 

80 MB/160 MB SMD controller 

RM02 

S33/B 

80 MB/300 MB SMD controller 

RK07 

S33/C 

200 MB/300 MB SMD controller 

RP06 

S33/D 

96 MB CMD controller 

RK06 

Products printed in red are LSI-11 Bus compatible. 

Products printed in black are UNIBUS® compatible for PDP-11 and/or VAX 
minicomputers. 


DEC. LSI-II. PDP. UNIBllS and VAX arc registered trademarks of Digital Equipment Corporation. 
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f rite for details. We’ll include 
information on the ABLE line of UNIBUS- 
compatible products, as well as the MAGNUM™ 
Series of computer systems. 


ABLE COMPUTER, 1732 Reynolds Avenue, 
Irvine, California 92714. (714) 979-7030. 
TWX 910-595-1729 ACT IRIN. 


ABLE COMPUTER, ABLE Computer House, 
London Road, Newbury, Berkshire, England RG13 2QJ. 

44(0635) 32125. TELEX 848715 ABLE G. 
ABLE COMPUTER GmbH, Forsthausstrasse 1, 
8013 Haar (Near Munich), West Germany. 
49 089/463080,463089. TELEX 05213883 ABLE D. 

VAX and UNIBUS are trademarks of Digital Equipment Corporation. 
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WORD-11. 

The Word Processing Syste 

Vital For VAX. 



WORD 11 


VAX 


The Unabridged Addition. 


No matter how many additions you’ve made 
to your VAX,™ it won’t be complete without 
WORD-11.™ It’s the sophisticated word processing 
system designed to help you use all the other 
information you’ve stored. With features like 
list processing, built-in dictionaries for spelling 
error detection, automatic table of contents and 
footnoting that make report writing a snap. 

WORD-11 runs concurrently with data 
processing on multiple terminals. It’s easy to use. 
And it’s been up and running in hundreds of 
installations all over the world for years. 

WORD-11 is easy to install and operate. It’s 


cost effective. And it’s supported by a dedicated 
team of experienced specialists. It could be the 
most important addition you make to your VAX 
installation. For details. Call, (714) 993-4160. 

WORD-11 is also available for Digital’s 
RSX-11M,™ RSX-11M PLUS™ and RSTS/E™ 
operating systems. 



Data Processing Design, Inc. 


AUTHORIZED SDSDD0D 


COMPUTER DISTRIBUTOR 


CORPORATE OFFICE 
181 W. Orangethorpe, Suite F 
Placentia, CA 92670 
714-993-4160 Telex 182-278 


N Y OFFICE WASHINGTON DC OFFICE 

420 Lexington Avenue, Suite 633 4520 East- West High way, Suite 550 

New York, NY 10170 Bethesda, MD20814 

212-687-0104 301-657-4098 


WORD-11 is a trademark oj Data Processing Design, Inc. 

VAX, RSX-11M, RSX-I1M PL US, and RSTS/E are trademarks, and remaining titles are products or trademarks of Digital Equipment Corporation. 
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